




ROLAND DG DXY880 L'EVOLUZIONE DEL PERSONAL PLOTTEI 




LA POSTA 


04 

DIDATTICAMENTE DALLA A ALLA Z 

di Donato Maturo & Maria L Miti 

06 

CORNUCOPIA 

a cura di Eugenio Coppari 

10 

BASIC 4.0 PER COMMODORE 64 

di Roberto Tagliabile 

15 

MODULANDO E DEMODULANDO 

di Carlo Bofòbinf 6 Fabrizio Ferraio 

18 

TRIGONOMETRIA 

di Mauro Massetti 

22 

STATISTICA (quinta parte) 

dì Mariangela Guardiane 

30 

1 CARATTERI DEL COMMODORE 64 

di Mauro Massetti 

38 

LA CIRCONFERENZA 

E LA RAPPRESENTAZIONE GRAFICA 

di Mauro Massetti 

46 

WA-TOR 

dì Marco De Rosa 

52 

ANNUNCI ECONOMICI 


59 

CODICE FISCALE E GESTIONE 

di Enzo e Nervo Galletti 

61 



DIRETTORE: 

Glorinno Rossi 

n E D A7I0JJUC0 LUUSOft ATOHIi 

Eugeni Coppali, GiAncwKi 
DflCobtìlli. Maro Do Martino, Marco 
Do Rosa, Votano Ferri, Francesco 
OkW, Mormingotn Guantone, (imiti 
Marami. Mauro MuhM, Carla 
Rampi Etoesis Sntati. Ronzo Z&rwi 

SEGRETERIA DI R E 0 AJUONEr 

Maur» Ceccamlu. Plora Purtn 

UFFICIO GRAFICO; 

Mar* Benvenuto. Aitata dagHn 
Paolo Venusta 

FOTO Ot COPERTINA : 

Fourtacnca 2 Ella 

DIFFUSIONE E ABBONAMENTI; 

Manna vamim 

EDIZIONI. 

SvMMnaE^ooneMSri 
(Ra^mm Nu renaio Stampa n Óiioo 


DIREZIONE, REDAZIONE. 
PUBBLICITÀ': 

Via Fa Famag-oslu. 75 - 20142 Milana 
Tol . 02/0467345 - Autorizzai inno 
diri Tribuna* tfliMJfliwN 103 
dal 25/2/S4 
Diretta™ raspònubVe 
Agosilna Roncftutii 

PUBBLICITÀ': 

* M ilano Mirco Croce {coordinatore] 
Giuseppe Pensarti. Mcheta Prsnd.ni 
Giorgio Buffoni, Claudio Txtora. 

Villa Claudio 

Sagr otaria Liliana Dc^torgn 

■ flosv.3 Sjja£ loruKTt'D 

Via p Foscan. 70- Tet O&/BI09679 

C OMPOS I ZJ0N ^FOTOLITO; 

Syaem* Ed Sonata $ f i 

STAMPA: 

La Lue-grafica - Busto Arazio{VAJ. 

CwXBSSJOfWlO OSCtaSrvO p*r (a 
cMtastane M£PE Spa Va G Crono, 
32 Milano 


Spedatone in nijtofwirrwmo postola 
Gruppo Il 1/70 

Proiio dulia Hvtsi» L 3-OQQ 
Arrolfnri: pornctiimsta lino 
□ 4 rumori L SOOOcod 
por fichtaato supercri L -i oCDeafl 
AljtxlnamonlO annuo L 25.000 
I vor^tìmoffli vanno indirvi jm a. 
System? Ed tariate Srl 
V lo Famdgosta ?5- 20 H2 Milano, 
mediante aswgnc bancario, 
o utilizzando n c/c postata N 
37952207 

Por i cantal di JndMUO» Idom, OhRT 
natu#*lmenta il movo, meta l'«daw- 
IO prooodonta, «I a ls tnjaro alla cnmu- 
PKAZ>ono Importo di 1 500 meta in 
liancotnli 

TUTRIOfRim DI RIPRODUZIONE 
O TRADUZIONE DEGÙ 
ARTICOLI PUBBLICATI 
SONO RISERVATI 


U tota di copertina. Un ria dai Mm SotosM c> ri sima qemdmefise concessa ctaWa Croazoru 


WaltDoney Copyr^iE rei iGfri Ruota Visto Disiribvn^n 






• Chiedo $e e possibile programmane ì 
tasti firn /.io ne con il programma .Simon T s 
Basic tj uando non accetta le doppie virgo- 
lette» Ad esempio se scrivo: 

KEY “LOAD’ , S’\IT’ 
mi dà errore. E' possibile risolvere questo 
problema, se si, in che modo? f iruzie. 
(Mauririo Guidalo) 

□ Lti soiuz ione a questo tuo piccolo prò- 
b le ma ù molta $en i pii ce. Pro va a digitare 
mé LOAD"CHR$t34y r $' 4 CHR$t34F t g" 
Vedrai che in questo modo funzionerà 
perfettamente. 

• Vorrei sapere se è possibile e come si 
può fare per modificare il nome e ridenti - 
file dei floppy senapi rifomialbirli e senza 
perdere i programmi contenuti nel disco 
stesso. 

(Giacomo Chiamisi) 

D Per poterti aiutare ti propongo di se- 
guito questo brevissimo listato U quale ti 
consente di cambiare il nome e l' ideati file 
di un disco senza cancellarne per questo i 
programmi ed i file contenuti. 

S. B. : In fase di INPUT dai il nome dei 
disco e detTid separati dalla virgola. 

1002 INPUT " 1 NOME,ID 
1 “;N0$, IO* 

1064 IF LEN<NQ$)< 18 TH 
EN sFOR I =LENCNO$ 

> + l TO 18sND$=N0$ 

+ 11 MNEXT 

1086 IF LEN(ND«)<18 TH 
EN SFOR I=LENCNO$ 

> + l TO 18SN0*=N0$ 
+“ "sNEXT 

1068 OPEN 15,8,15 
1070 OPEN 5,8,5, "ti 11 
1072 PRINTti 1 5 , " U 1 *5,0, 
18,0" 

1074 PRlNTttlS, n B-P:5, I 
44 11 


1076 PR I NTttS ,N0$; 10$; 
1078 PR INT4 1 5 , 11 U£ : 5 ,0 , 
18 , 0 " 

1080 CLOSE 5SCL0SE 15 

• Vorrei sapere come posso acquistare il 
libro '*64 Programmi per il Commodore 
64" in quanto non sono riuscito a reperir- 
lo in edicola. 

(Cristiano Gravandola) 

□ Il libro in q uestione non è più repehbP 
le in edicola ma scrìvendo una lettera al 
nostro ufficio abbonamenti oppure tele- 
fonando potrai avere notizie di come po- 
terlo avere. 


• Vi chiedo gentilmente dì pubblicare 
sulla vostra rivista COMMODORE lista- 
ti per videogame* per il C-16. In quanto 
in commercio non esiste praticamente 
nulla. Questa è un unica richiesta ma 
penso die sia interessante per parte di 
molli utenti C-16. 

(Stefano Guerrini) 

□ Sulla nostra rivista, se specificato, i 
programmi funzionano anche sul C-J6 e 
Plus 4 ma non sono propriamente dei 
videogame*. Per darti un aiuto a trovare 
dei giochi per il tuo computer posso con- 
sigliarti due nostre pubblicazioni: una è la 
rivista Commodore Computer Club che 
tratta anche ; oltre ai giochi , dei piccoli 
programmi dì utility, l altra nostra pub- 
blicazione sempre in edicola è una casset- 
ta contenente fra le altre cose anche pro- 
grammi di giochi per i C-lósti come te. 

# Dove posso trovare la guida di riferi- 
mento per il computer C-16 della Com- 
modore perchè il manuale all 'interno del- 
la macchimi ormai non mi basta più. 
(Paolo Missioni) 


□ // manuale in questione non è ancora 
reperibile sul mercato italiano e molti 
utenti come te lo stanno aspettando con 
ansia. 

• In molle utility di aiuto alla program* 
mozione del tipo del BASIC 4.0 c’è anche 
il cornando MERO E a cosa serve? 
(Fabrizio Campana} 

□ // merge serve per unire due program- 
mi. Ad esempio se io avessi un program- 
ma in memoria e volessi aggiungere una 
routine contenuta nel disco con il coman- 
do merge posso fare ciò senza dover ribat- 
tere la routine stessa. Attenzione però la 
numerazione dei due programmi deve es- 
sere diversa altrimenti sì hanno fastidio- 
sissime sovrapposizioni di numeri dì 
linee. 


• Perchè sui numeri scorsi della rivista 
Commodore la rubrica Unii riga non è 
presente? 

(Giorgio Armadio) 

□ La rubrica Una riga è stata passata su 
un'altra nostra pubblicazione, Commo- 
dore Computer Club: se vuoi inviare le 
tue IR potrai farle pervenire in redazione 
al solito indirizzo , 

+ Possiedo un word processor della 
Commodore, più precisamente il 
WORDPRO+++. Vorrei sapere se è 
possibile uscire dal programma senza 
spegnere il computer. 

(Davide Ciceri) 

□ Pii oi otten ere questo risultato p remen - 
do il tasto CONTROL e ed entrando in 
modo comando. Successivamente basta 
premere contemporaneamente SHIFT r 

Q< 
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• Vorrei sapere se esiste il modo per 
duplicare le cassette che solitamente si 
reperiscono in edìcola. Come voi senza 
dubbio saprete, parecchi di questi pro- 
grammi non sono assolutamente listabiHe 
diffidi mente trasferibili da un supporto 
magnetico ad un altro (da registratore a 
disco). 

(Cravanzoìa Cristiano) 

□ Pur precisando che quaterna casetta 
delia nostra casa editrice è duplicabile, la 
maggioranza dei programmi riportati sul- 
le pubblicazioni presemi in edicola, sotto 
scritti in linguaggio macchina o comun- 
que protetti verso la duplicazione . 

Ciò non li rende Ostatili nel senso clas- 
sico della parola, infatti l'utente che desi- 
deri analizzarli dovrà intervenire con un 
disassemblatore per cercare di individua- 
re la struttura del prograrnma 

Per copiare la maggior pane di questi 
nastri sono disponibili 2 diverse 
alternative: 

a) Effettuare la copia fisica del nastro, 
mediante spedati apparecchiature tecni- 
che di cui abbiamo fatto la pubblicità sui 
numeri passaci di Commodore Computer 
Club. 

b) Ricorrere a speciali programmi che 
consentono dì ricopiare tale software da 
un supporto magnetico ad un altro , 

Ti ricordiamo che nel numero 7 delta 
rivista su cassetta Commodore Club , che 
sarà in edicola dopo la metà del mese dì 
giugno, potrai reperire un programma 
che soddisferà la maggior parte di queste 
tue esigenze ^ 

• Posseggo alcuni giochi per U CBM 64 e 
quando finisco dì caricarli partono auto- 
maticamente, Come posso ovviare a que- 
sta situazione? 

(Ferrano) 

□ Esistono parecchie tecniche per far 
partire automaticamente un programma, 
ora ne enunceremo alcune. 

Modificando la routine di WARM 


START è possibile porre in esecuzione 
automaticamente un programma appena 
terminato il caricamento , oppure ci si può 
avvalere delie locazioni relative al Buffer 
di tastiera (da 631 a 640) per simulare /' 
effetto di un comando dato tramite 
tastiera , 

Anche in questo caso solo una appro- 
fondita conoscenza del modo di operare 
della macchina ci consentirà dì ovviare ai 
problemi che hai precedentemente citato. 


§ Vorrei sapere come sì può accedere al 
sistema operativo del Vie 20 per poter 
inserire altri comandi BASIC da me 
creati. 

(Mino) 

□ Quello che tu desideri è senza dubbio 
possibile, anche se l'esperienza di pro- 
grammazione è un requisito fondamenta- 
le per poterlo realizzare. 

Dovrai reperire la coppia di locazioni 
di memoria, byte alio e byte basso t che 
indicano al computer da quale locazione 
di memoria deve iniziare l'analisi della 
sintassi delle istruzioni BASIC. 

Modificando il valore di queste 2 celie 
di memoria, in maniera tale che il calcola- 
tore punti ad un 'altra locazione per inizia- 
re questo esame, potremo inserire dei 
nuovi comandi BASIC ♦ 

,4/ termine dell'analisi dei nuovi co- 
mandi contemplati in questa routine, il 
computer dovrà sa! tu re alla locazione, 
contenuta in ROM, da cui comincia nor- 
malmente la verifico dei messaggi del 
BASIC . 

Tutte queste operazioni dovranno esse- 
re effettuate tramite programmai ione in 
linguaggio assembler . 

Il discorro è naturalmente analogo per 
il Commodore 64. 
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Un linguaggio per imparare 


di Maria Luigia Nitti - Donato Matturro 

Nella presentazione di questa rubrica si era parlato degli strumenti per 
l’informatica didattica con particolare riferimento ai linguaggi 
propedeutici. Ci sembra utile a questo punto entrare nel vivo di un 
linguaggio con tali requisiti: il Logo. 


II Logo nasce intorno agli anni 60 ad opera di un gruppo di 
ricercatori della Boll, Beranek & Newman, ma il suo sviluppo 
decisivo si delinea negli ambienti dell'Intelligenza artificiale 
grazie ad un epistemologo, Seymour Paperi, collaboratore di 
Jean Piaget e successivamente direttore del Mit (Massachus- 
sets Institute of Technology} insieme a Marvin Mtnsky, 

Il marchio " piagarti ano" appare evidente nella "filosofia" 
che sta alla base dei Logo: se ascolto, dimentico; se vedo, 
ricordo: se faceto, capisco. In termini pratici la "tartaruga" 
assicura il primo anello di questa catena; un oggetto elettroni- 
co mosso da semplici comandi sullo schermo dei televisore. 

Questa simulazione elettronica permette di lavorare con un 
approccio di tipo esplorativo. Niente di più semplice; pochi 
comandi ed ecco apparire sullo schermo figure di complessa 
geometria, scomoda da disegnare con carta e matita. 

La sperimentazione viene resa ancora piu facile dalla quasi 


totale mancanza di momenti di blocco; gli errori di esecuzione 
sono quasi sempre visibìli, quelli di sintassi sono ben segnalati 
e di dìttici le occorrenza. 

L’allievo risolve i problemi in modo creativo su un percorso 
di lipo ”bQttom-up 1 \ spogliato quindi dalle difficoltà tipiche 
della tecnica di programmazione “top-down” 

Inquadrare precisamente I problemi e scendere, successi- 
vamente, a livelli inferiori di sottoprobiemi può risultare utile 
nella stesura di procedure dì lipo professionale. In quesli casi 
esiste, però, un background di conoscenze per cui è possibile, 
anche se non è del tutto vero, prima “capire" e poi “fare" 

Chi volesse approfondire l'argomento potrebbe trovare in- 
teressante la lettura del libro di Horacio Reggini "Logo; ali per 
fa mente", dove si possono incontrare numerosi ed interes- 
santi Spunti didattici oltre ad una chiara e più profonda esposi- 
zione delle tematiche Logo 
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E.LI.ANA. 

Per non rimanere in un territorio esclusivamente teorico, 
abbiamo pensato di proporre un Logo di nostra creazione, 
pa ri icof arme nte diffuso tra ì nostri letlorì. il Logo E.LLANA, che 
è ('acronimo dì Elementare Linguaggio ANAtogico, dove per 
elementare si intende appunto di facile uso e con analogico si 
vuole sottolineare la vicinanza al linguaggio reale. 

Sulla rivista Commodore Computer Club, tra l'altro, uscirà in 
parallelo un corso introduttivo alfa programmazione, basato 
appunto su E.LL ANA. 

Al contrario del BASIC. Logo ha due ambienti: ALBUM e 
QUADERNO. La differenza è subito apprezzabile nell'anale- 
già con l'uso reale degli strumenti cui i due termini si riferisco- 
no: sull'album si disegna, sul quaderno si scrive. 

L'ambiente QUADERNO è quello in cui d si trova normal- 
mente: qui, così come in BASIC, sì digitano i programmi e ì 
comandi diretti. Questo è l'ambiente deputato all'interazione 
con la macchina, anche per quanto riguarda gli errori; inoltre 
sulle pagine di QUADERNO vengono visualizzati i testi pro- 
dotti dalie procedure. 

Il mondo della coccinella 

Digitando semplicemente ALBUM ci introduciamo nel mon- 
do della coccinella, che appare piacevolmente campila in 
rosso su uno sfondo bianco. 

Particolare attenzione va posta nei riguardi di questo am- 
biente: esso offre moltissimi spunti per la realizzazione di una 
prima fase di apprendimento. Qui la coccinella può essere 
mossa mediante la pressione di alcuni tasti che corrispondono 
alle iniziali dei comandi di procedura nella sintassi Logo: 

[A] AVANTI (avanza di 10 passi) 

|l] INDIETRO (toma indietro 10 passi) 

[SJ SINISTRA (ruoia dì 45 gradi a sinistrai 
[D] DESTRA (ruota di 45 gradi a destra) 

(MJ MATITA (lascia traccia dei movimenti) 

(V) VOLA (non lascia la traccia) 

[G] GOMMA (cancella la Iraocia) 

|CJ CESTINO (cancella fa pagina di album) 

Insegnando i movimenti alla coccinella sì imparano le più 
elementari tecniche di scomposizione dei problemi e nello 
stesso tempo si prende familiarità con lo strumento computer, 
il tutto in una veste ludica assai accattivante. 

Chiaramente questo primo momento di conoscenza è riser- 
vato all'utenza più inesperta, quella alte prime armi, in parta- 
tonato! corti insamma; qui le problematiche pedagogiche sono 
molto psù compiesse. Passi troppo lunghi non si addicono a 
quelle corte gambette. 


Con questo intendiamo consigliare un periodo aaeguata- 
mente prolungato di preparazione alla stesura di procedure, 
dove sì potranno coltivare i prerequisitl necessari Per cilare 
alcune possibilità didattiche, basti pensare all 1 insegnamento 
di una geometria elementare dove le figure possono essere 
sperimentate in grafia ed analizzate nella misura nitrendosi 
semplicemente ai numero di pressioni occorse per disegnare i 
tati. 


UH ALBERO ELETTRONICO 

tipi ango I o 

A 

-I- 

1 i ne a 

1 

— 


a I bero 

A 



Da “Quadrato” a “Centrini” 

In un secondo momento si può passare alla stesura di 
piccoli programmi riferendosi magari alle stesse figure geo- 
metriche disegnate in modo diretto precedentemente. Prima 
dì analizzarne qualcuno, è però necessario aprire una paren- 
tesi sulle parole dì E.LI.ANA e sulla relativa sintassi 

Sarebbe auspicabile poter parlare alia macchina esatta- 
mente nello stesso modo con cui si comunica con le persone; 
questo problema, purtroppo, non può trovare ancora soluzio- 
ne poiché risiede nelle possibilità tecnologiche offerte dal 
mercato ancor prima che nella difficoltà di stesura. Inoltre un 
rapporto troppo "umano" con Fa macchina rischierebbe di 
inficiare una reale presa di coscienza di quello che fa macchi- 
na rappresenta. 

Il linguaggio Logo risulta quindi spogliato dì qualsiasi parti- 
cella sintattica: l'istruzione è composta di una parola significa- 
tiva e dai relativi paramelo. 

I comandi AVANTI e INDIETRO devono essere seguili da 
un solo parametro che indica il numero di passi (punti sul 
video) che l'automa deve percorrere, allo stesso modo il para- 
metro che segue DESTRA e SINISTRA indica l'angolo di 
rotazione della coccinella: 
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1 0 AVANT1 100 (avanza 100 passi) 

20 INDIETRO 70 (muove indietro 70 passi) 

30 DESTRA 90 (ruota a desi radi 90 gradì) 

40 SINISTRA 15 (ruota di 15 gradi a sinistra) 

Come si può notare dall'esempio, E LI ANA, è un linguaggio 
numerato; questo è chiaramente un limite, se considerato dal 
punto di vista della programmazione strutturata, un limite che 
non è più tale se il punto di arrivo è il BASIC. In questo caso, 
afiora, l'allievo inizia a familiarizzare con quelle che saranno 
poi le modalità di programmazione future. 

Altre istruzioni utili sono VELOCITA* n, dove n rappresenta 
un numero nel range 1-255 che indica fa rapidità di movimento 
della coccinella, GOMMA per cancellare if tratto, MATITA per 
lasciare fa traccia, VOLA per spostarsi in altri punti. CESTINO 
per pulire lo schermo. 

La ripetizione di gruppi di istruzioni è invece assicurata 
dall'istruzione SOTTOPROGRAMMA A;B, dove A indica fa 
riga in cui inizia il gruppo di istruzioni e B il numero dì ripetizio- 
ni. Un insieme di comandi può essere chiamato come sorto- 
programma a patto dì terminare con l'istruzione TORNA; que- 
st' ultima ìndica alla macchina di ritornare all'istruzione di chia- 
mata del sotto programma stesso per continuare al numero di 
riga successivo. 

Il procedimento è lo stesso che in BASIC, con il vantaggio di 
poter stabilire il richiamo ciclico della routine in oggetto. Se 
analizziamo l'esempio seguente, possiamo renderci conto di 
quanto detto; il programmino in questione esegue la procedu- 
ra quadrato per poi utilizzarla all' interno di un'altra procedura 
che realizzerà un "centrino'* costituito appunto dal richiamo 
ciclico del quadrato. 


Programma Quadrato 

10 ALBUM 
20 MATITA 

200 SOTTOPROGRAMMA 300:4 
210 FINE (TORNA) 

300 AVANTI 30 
310 DESTRA 90 
320 TORNA 

Questo primo esempio produce il quadrato, nella posizione 
di partenza della coccinella, ovvero il centro del foglio: esso 
può essere richiamato a sua volta da un altro programma 
diventandone sottoprogramma, semplicemente sostituendo 
nella riga 210 if comando TORNA all'istruzione FINE 

Aggiungendo le seguenti linee si ottiene un quadrato ruota- 
to di 20 gradi rispetto af primo. 


Sottoprogramma Quadrato Ruotato 

100 DESTRA 20 

110 S0TT0PRQGRAMMA 200 

120 FINE (TORNA) 

Eseguendo nella riga 1 20 (a stessa sostituzione effettuata in 
precedenza, anche questa seconda procedura può diventare 
sottoprogramma. 

Aggiungendo le seguenti righe: 

Programma Centrini 

30 SOTT0PROGRAMMA f00;1Q 
40 LINEA 40 

potremo ottenere il programma Cenlrino richiamando 18 volte 
il sottoprogramma Quadrato ruotato, che chiama a sua volta il 
sottoprogramma Quadrato. E' interessante rilevare che ìf nu- 
mero di cicli deila riga 30 è dato dal rapporto tra 360 e l'angolo 
di rotazione del quadrato (18=360/20). 

L'istruzione LINEA che appare nella riga 40 corrisponde 
univocamente al comando GOTO del BASIC: nel caso specifi- 
co richiama se stessa per assicurare una visione dell'album 
fino alla pressione del tasto RUN/STOP. 


Per un "bosco elettronica” 

Sicuri di non avere completamente soddisfatto ì lettori piu 
esigenti, a conclusione dt questa prima trattazione su E LLA- 
NA. proponiamo una simpatica procedura che porta alla crea- 
zione di un bosco elettronico attraverso una catena di esperi- 
menti. Il suo uso con i ragazzi deve essere, però, ben ponde- 
rato e seguito, poiché fa sua maggiore complessità, potrebba 
causare incomprensioni nel caso si tratti di utenze troppo 
giovani. 

Chiaramente il procedimento da seguire nella guida dell'al- 
lievo è simile al precedente: si richiede la stesura della proce- 
dura di livello inferiore che, tramite la solita sostituzione, FINE/ 
TORNA, diventa sottoprocedura e cosi via. Si raccomanda di 
inserire subito le righe 110, 120. 130 per cancellare il video, 
spostarsi nell'album e velocizzare la coccinella. 

I! listato del programma bosco parte dall'esecuzione di un 
semplice spostamento della coccinella (linee 200-260); si 
tracciano poi una lìnea (righe 300-320) ed un triangolo (righe 
400-480). per ottenere una procedura "albero" (righe 600- 
630). Tale procedura con raggiunta della routine ‘sposta 
albero r (righe 500-540}, se richiamata più volte dà luogo ad 
una "fila di alberi" (righe 800-020) a loro volta eseguibili m 
varie tornate per diventare un "bosco" (righe 130 - 150 ) Le 
righe 700-720, "sposta alberi", muovono la coccinella di qual- 
che passo prima di eseguire una nuova fila. 
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BOSCO ELETTRONICO 


100 ALBUM 

110 CESTINO 

120 VELOCITA’ 250 

130 SOTTOPROGRAMMA 200 

140 SOTTOPROGRAMMA 0OO;5 

150 LINEA 150 


[VOLA IN BASSO 
A SINISTRA] 

200 VOLA 
210 SINISTRA 90 
220 AVANTI 100 
230 SINISTRA 90 
240 AVANTI 60 
250 DESTRA 180 
260 TORNA 


[SPOSTA 

ALBERO] 

500 VOLA 
510 SINISTRA 1 20 
520 AVANT1 15 
530 SINISTRA 150 
540 TORNA 


[LINEA] [ALBERO] 


300 MATITA 
310 AVANTI 20 
320 TORNA 


600 SOTTOPROGRAMMA 300 
610 SOTTOPROGRAMMA 400 
620 SOTTOPROGRAMMA 500 
630 TORNA 


[TRIANGOLO] 


[SPOSTA ALBERI] 


400 SINISTRA 90 
410 AVANT1 10 
420 DESTRA 120 
430 AVANTI 20 
440 DESTRA 120 
450 AVANTI 20 


700 VOLA 
710 INDIETRO 40 
720 TORNA 

[ALBERI] 


460 DESTRA 120 800 SOTTOPROGRAMMA 600:5 
470 AVANTI10 810 SOTTOPROGRAMMA 700 
480 TORNA 820 TORNA 


Roland 



Una serie completa di monitori b/n 
e colori per ogni esigenza, 
anche la più sofisticata. 

Per i PC IBM e per tutti gli altri 
personal computerà. 
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Anche su questo numero di Commodore vi 
presentiamo una serie di Snn di particolare interesse. 
Alcune sono state inviate da lettori che come voi si 
cimentano, appena possono, su! computer per 
scoprirne i più reconditi segreti. 
E ' proprio attraverso piccole curiosità, spigolature e 
nolizìe brevi che si possono costruire programmi con 
caratteristiche interessanti 
Quando scoprite una qualsiasi notizia che potrebbe 
essere utile a qualche altro lettore, sci vele! 
Sicuramente anche se a prima vista sembra banale 

può interessare. 

Elaborate ed inviate sempre I vostri programmi a: 






$72 


Salva schermo. Questi due micro-programmi (così micio 
che potrebbero far parie della Rubrìca “una sola riga") sono 
facili da ricordare e possono essere utilizzati per salvare i 
risultati che vengono riportali sullo scherno, oppure per riave- 
re delle maschere sù cui successivamente lavorare nonché 
per rivedere vari grafici scrìtti in bassa risoluzione eco Ho 
usato il plurale perchè a partire dalla locazione 49 152 si hanno 
4.096 byte dì memoria RAM a disposizione quindi si possono 
salvare ben 4 pagine dì schermo, per fare questo basta incre- 
mentare di mille la POKE (48128+A) della riga 20 cioè POKE 
(48 1 20 4- A + 1 000) salva nella locazione 50152, POKE 
(48 f 20tAt2QOO) salva nella locazione 51 152 e così di seguito; 
naturalmente, per riavere le 4 pagine, della stessa quantità 
deve essere incrementata fa X=PEEK (40128+A) della riga 
30. Eseguendo RUN 20 si copiano i mille caratteri dello scher- 
mo (40 colonne per 25 righe) nelle locazioni di memoria che 
vanno da 49152 a 50151, La funzione X=PEEK (A) legge i 
mille valori presenti sullo schermo, mentre POKE 
MS128+A),X trascrivete i mille caratteri letti a partire dalla 
locazione 49152 — (48128+1024). In un secondo tempo digi- 
tando HUN 30 si riportano sullo schermo i mille caratteri salvati 
precedentemente dove X=PEEK (48128+A) legge mille va- 
lori a partire dalla locazione 49152 POKE A,X scrive sullo 
schermo i caratteri corrispondenti ai mille valori letti POKE 
{ 54272+ A), 0 colora In arancio ( f 0) i caratteri; invece di £.8) si 
può inserire qualunque numero ira Oe 15. 

(Severino Bompadre) 

20 POR A = 1024 TO 2023 ! X=PEEK <A) : FOK 
E <48Ì23+A)/Xi NEXTA s END 
30 FOR A* 1024 TO £023 : X=PEEK (48 L2S + 
A.ìsPOKE A,XsNEXT :END 
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Costi. In questo breve programma, che può essere conside- 
rato fine a se stesso, si possono estrapolare alcune routine e 
notizie di particolare Interesse. 

Per esempio, alla riga 135 ed altre analoghe, si può notare 
che dopo la GOSUB ed t! relativo numero di riga esistono una 
virgola ed un commento senza che questo sia preceduto da 
una REM. Il BASIC, infatti, ignora al suo ritorno dalla subroutì- 
ne ciò che segue il comando in oggetto fino ad un due punti o 
fino alla fine riga. 

Il disegno della cornice, più o meno al cenlro dello scher- 
mo, si può fare con la routine posta dalla riga 545 in poi. 

Da qui poi esiste una esposizione dì menu con relativo 
controllo di validità di scella 


Ogni scelta porta ad un semplice calcolo contabile di pro- 
babile interesse: 

- calcolo del prezzo con IVA, tornando opportunamente l'im- 
porto netto e l’aliquota; 

- calcolo del prezzo scontato, ottenìbile digitandosi il prezzo 
lordo dell’ articolo in esame che. successivamente, la percen- 
tuale di sconto; 


- costo lordo, che richiede in fase di input il prezzo netto, 
l'aliquota IVA ed infine Fa percentuale di sconto; 

- calcolo dello scorporo, ottenibile fornendo importo lordo e 
l'aliquota IVA 


100 
105 
110 
i 15 
120 
125 
130 
135 
140 
145 

150 

155 

1B0 

165 

170 

175 

180 

185 

130 

185 

200 

285 

210 

£15 

££0 

£25 

£30 

£35 

£40 

245 

250 

£55 

260 

265 


(Emiiia Concai 

rem mm ** * *** * * pm 

REM 4 COSTI 4 

REM 4 4 

REM * DI 4 

REM * EMILIO CONCA 4 

REM 4*444*44444444****4 
PR 1NTCHR$< 147) 

GOSUB 545, DI SEGNA C OR NI DE 
PRINT” [HOME 3te DONNI * 

PRINT" CD0UNJ " TAB (7) “ 1 PREZZO 
CON IVA" 

PRINT" [DONNI " TAB < 7 ) " 2 PREZZO 


SCONTATO " 

PRINT” [DONNI 11 TAB < 7 > * 3 COSTO 
LORDO " 

PRINT " [DONNI " TAB C 7 ) * 4 SCORPO 
RO IVA* 

PRINT” [DONNI “ TAB < 7 ) " 5 FINE P 
ROGRAMMA * 

GEI X$*IF XiM* * THEN 170 
X*=VAL<X$) 

IF X<I OR X >5 THEN 170 
ON XGOTO 180 ,235,280,330 s END 
REM ****#4**4********** 

REM * PREZZO CON IVA £* 

REM i*****#44****#*4*4* 
PRINTCHRSU47) 

GOSUB 390,PREZZO^NET TO 
GOSUB 4£5, ALI QUOTA IVA 
L = I NT ( <P+(<P*I )/ 100 J ) +, 5 ) 
PRINT” [2 DONNI IL PREZZO IVATO 
E 1 = "L 
GOTO 535 

REM ******************* 

REM * PREZZO SCONTATO & 

REM * 4 #* **#**4*44#***#* 

PRINTCHRSC 147) 

GOSUB 460, PREZZO L OR DO 
GOSUB 495,3 CONTO 


P = 1 NT t < L ~L 4 < S/ 1 00 ) ) + , 5 ) 
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£70 PRINT " 12 DOWN] IL PREZZO SCONTA 
TO E' = M P 
£75 BOTO 535 

£30 REM ******************* 

£35 REM * COSTO LORDO * 

£30 REM i*********t******** 

£35 PRINTCHRSC I47> 

300 GOSUB 330, PREZZO NET TO 
385 GOSUB 4£5, IVA 
310 GOSUB 495, S CONTO 
315 L =P + ( ( P * I ) / 1 0 B ) : L = 3 NT (L~L*(S/Ì 
00 ) + • 5 > 

3£0 FRI NT " tB DOWN 1 1 L COSTO TOTALE 
E 1 - n L 
3£5 GOTO 535 

330 REM ********* ********** 

335 REM «SCORPORO * 

340 REM 

345 PRINTCHR$< 147 > 

350 GOSUB 480, PREZZO L OR DO 

355 GOSUB 4£5 , IVA 

360 P=rNTC (L*100?/U + 100) + .5) 

365 Il=L-P 

370 PRINT" IMPORTO LORDO * U L 

375 PRINT" ' 1 IVA = 11 1 I 

380 PRINT “IMPORTO NETTO = n P 

385 GOTO 535 

390 REM ************>**.^y^^ 

395 REM * INPUT PREZZO NETTO 4 
400 REM M*+****’U*t*t****'mH 

405 FRI NT "DIGITA IL PREZZO NETTO * 
410 INPUT P 

415 IF P<I THEN PRINT”[£ UPJ-sGOTO 
410 

480 RETURN 

425 REM ***************** **^ Urt 
430 REM * INPUT ALIO. IVA f 

435 REM 

440 PR INT"D IG I TA ALIQUOTA IVA" 

445 INPUT I 

450 IF I=£ OR 1 -3 OR 1*18 OR 1=35 
THEN RETURN 

455 PRINT" [£ URI": GOTO 445 
460 REM * ******* ********* * * *** 

46 5 REM * INPUT IMP, LORDO + 

470 REM *********** ****^Ww* 

475 PR INT"D IG ITA IMP. LORDO w 
480 INPUT L 

435 IF L< i THEN PRINT*l£ UPJ^GOTO 
480 

490 RETURN 


495 

500 

505 

510 

515 

5£B 

5£5 

530 

535 

540 

545 

550 

555 

560 


REM 
REM 
REM 

PRI NT "DIGITA LO SCONTO ,# 

INPUT S 

IF SU THEN FRINT" t£ UFI" ! GOTO 
515 

RETURN 



L***** 

SCONTO * 

r *********** 


REM ********************** 

PR IMT rt I£ DOWNIPREMI SHIFT PER 
CONTINUARE " 

U1AIT 653,1,0: RUN 
REM _ 

REM * DISEGNA UNA CORNICE * 

REM 

PR INT" I HOME H4 DOWN3C5 R IGHT] " 


565 FOR 1 = 1 TO 30 ; PR I NT * * " ; : NEXT 
570 FOR 1 = 1 TO 15 SPRINT" CLEFTHDOU1 
NI*"; :NEXT 

575 FOR 1 = 1 TO 30: PRINT" 18 LEFT}* " 
I sNEXT 

580 FOR 1 = 1 TO 15 : PR INT" [LEFT3 [UP 3 
SNEXT 

585 RETURN 
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PRINT USING. Sul C16 e sul Plus4. nonché sul C128 con 
attivato il BASIC 7.0, è possibile sfruttare l'istruzione PRINT 
USING che ci permette di ottenere allineamenti numerici per 
produrre tabulati o visualizzazioni ordinate. 

Con la semplice routine proposta si può ottenere lutto ciò 
con tre decimali. 

(La redazione) 

10 INPUT "NUMERO" JZ 
30 GOSUB 60000 
30 PRINT TAB<£0 >Z$ 

40 GOTO 10 

60000 REM U*«**.*WW*+M+ 

60010 REM * ALLINEAMÉNTO jt 

60030 REM ì NUMERICO t 

60030 REM * H DESTRA ‘ 

60040 REM * CON 3 DECIMALI* 

60050 REM ******************* 

60100 IF Z =0 THEN 2$=" .000"tRET 

URN 

60110 Z= INT fZ*1000+.5)/ 1000 
60150 Z*=LEFT*(RIGHT$( " "+S 

TR*tZ+.0005* SGN<Z ) ) , 10 > ,9 ) 
60130 RETURN 
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Scelta controllata. Fare un menu bello non basta. Occorre 
che sia semplice e che non dia adito a dubbi di sorta anche 
per chi debba utilizzare un computer per ta prima volta. Ecco 
quindi che abbinare una scelta ad un numero può creare 
confusione, mentre, se la scelta è direttamente vincolata alla 
prima lettera della voce interessata, è senza alcun dubbio 
meglio. 

Provate quindi, questo sistema menu e potrete migliorare i 
vostri programmi. 

Essenzialmente la routine si basa sulla scansione della 
variabile xx$ che contiene tutti i primi caratteri delle scelte. 
Occorre tare attenwìone ne! decidere le dizioni di queste 
scelte; infatti è necessario che non abbiano la medesima 
lettera iniziale di altre righe di menu 

(La redazione) 


3800 REM ************ TERZA 
3010 PR I MTX 1 $; w TERZ A " JX2$i RETURN 
4000 REM ************ QUARTA 
4010 PRINTX1$; "QUARTA n ; X2$s RETURN 
80000 REM ***************** 

60010 REM * ATTENDE UN * 

60020 REM * TASTO VALIDO * 

S0030 REM ***************** 

B0040 GET X$; IF X$= on THEN 60040 
60050 FOR X=i IO LENCXXiJ 
60060 : 1F M1D$<XX$,X,1 )=XS THEN RE TU 
RN 

60070 NEXT 
68080 GOTO 60040 
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190 REM ******************* 

1 10 REM * SCELTA * 

120 REM * CONTROLLATA * 

130 REM ******************* 

140 PRINTCHR$<147) 

150 PR INT" C4 D0WNH5 RI6HTJ";:FQR 
1=1 TO 30 
160 IPRINT''*"; 

170 NEXT 

180 PR INT" [DOWN] ” 

190 PRINT TAB(7 ) “ [RVS JPtRVOFF IR IMA 
SCELTA 

200 PRINT TAB <7 > “ IRVS ]5 CRVOFF ]ECON 
OA SCELTA 

210 PRINT TAB <7 > 11 [RVS 1TCRVOFF 3ERZA 
SCELTA 

220 PRINT TAB<?) " [RVS JQtRVOFF ÌUART 
A SCELTA 

230 PRINT" [D0WN3 [5 R IGHT] " ; : FOR 1 = 

1 TO 30 

240 SPRINT"**; 

250 NEXT 

260 PRINT "[DOWN]" 

870 XX#= "PSTQ " s GOSUB 60010 

280 XI $= "E' STATA FATTA LA [RVS) “ 

290 X2$= " [RVOFF 1 SCELTA" 

300 ON XGOSUB 1000,2000,3000,4000 
310 FOR 1=1 TO 1000SNEXT 
320 GOTO 140 

1000 REM ************ PRIMA 
1010 PRINTX1*; "PRIMA " J X2S: RETURN 
2000 REM ************ SECONDA 
2010 PR I MTX 1»; "SECONDA " t X2*s RETURN 


Cognome nome. Monsignor Della Casa, noto personaggio 
che definì le regole del galateo, stabilì che il nome doveva 
precedere il cognome sia nelle lettere che nelle firme. Ma per 
gli Indirizzi, sulle buste, ciò non vale; infatti deve essere 
presente prima il cognome e poi il nome. 

Se nei vostri programmi esiste un problema di questo ge- 
nere, non dovete essere costretti a digitare per due volte un 
nome. Sarà sufficiente rimandare la variabile interessata (x$ 
nel nostro esempio) alla routine proposta ed ecco che "lei" 
prowederà all'inversione dei contenuti. 

(La redazione) 

100 REM ******************* 

110 REM * COGNOME NOME IN * 

120 REM * NOME COGNOME * 

130 REM ******************* 

140 PR I NTCHRS ( 147 ) 

150 PRINT" 14 DOWN]" 

160 PRINT "BATTI UN COGNOME E NOME* 
s INPUT X* 

170 GOSUB 80000 
180 PRINTXS 
190 GOTO 150 

60000 REM ***************** 

60010 REM * INVERTE AL * 

60020 REM * PRIMO SPAZIO * 

60030 REM ***************** 

60100 FOR X=LEN(X*> TO I STEP -1 
60110 IF MID$CXS,X,1 )<>’ “ THEN NEXT 
XiRET RUN 

60120 X*=MID*CX*,XH ) + ” "+LEFT$(X*,X 
-1 ) 

60130 RETURN 
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List-Aid, Quando impartiamo il comando LIST, ci appare 
sullo schermo lutto it programma, mantenendo il colore dei 
caratteri corrispondente all’ultimo colore impostalo e con lo 
scrool che continua lino alla line del programma in oggetto. 

La routine presentata ci premette dì ottenere un listato un 
pò diverso. 

Una voila attivato eoe >1 RUM e con la SYS280O SYS280.n 
(dove n sta per il numero di righe che dovranno appari re sullo 
schermo per ogni volta) si otterrà un listato dei programma 
presente in memoria in modo bicolore, in cui verranno evi- 
denziate le righe con le REM in un colore e quelle riferentesi 
alle istruzioni in un altro colore. 

Per proseguire fi listato ad ogni sottoserie di list è sudicerie 
premere un qualsiasi tasto. 

(Roberto Marassi) 

106 REM ********************** 


£10 REM * * 
120 REM * LIST AID * 
130 REM * * 
140 REM * DI ROBERTO MQRASS I * 
150 REM * * 
160 REM ********************** 

170 : 

180 REM **********************" 
190 REM * SYS 280,0 *" 
200 REM * [LISTI BICOLORE * B 
210 REM * CSH1FT *• STOPLIST] * n 


220 REM **********************" 
230 : 

240 REM **********************" 
250 REM * SYS 230, N *” 

260 REM * [LISTI BICOLORE *" 
270 REM *A BLOCCHI DI N RIGHE*" 
280 REM **********************" 
290 s 

300 REM **********************" 
310 REM * SYS 300 *" 

320 REM * RIPRISTINI [LISTI * " 
330 REM * NORMALE *" 

340 REM **********************" 
350 : 

3S0 ; 

370 REM *** LOADER *** 

380 : 

390 DATA AS , A8 , 8D , 06 ,03 , A9 ,02 ,80 
400 DATA 07 ,03,20 ,FD ,AE ,20 ,9E ,B7 
410 DATA @E , A? , 02 ,60 , A9 , 1 A ,8D ,06 
420 DATA 03,A9,A7 ,8D ,07 ,03,60,00 


430 FOR X=0 TO 3 1 : READ Y*rG0SUB 6 
10SPOKE 280+X,Y!NEXT 
440 • 

450 REM *** LISTA ID *** 

460 : 

470 DATA 00 ,AE , 80 ,02 ,E0 ,0 1 ,F0 ,F9 
480 DATA 24, 0F ,30,09,C3,8F ,D0,05 
490 DATA A2, 00, SE, 86, 02, 48, 84, FB 
500 DATA C8 ,B 1 ,5F ,00 ,05 ,A£ ,03 ,8E 
510 DATA 86 ,02 , AE ,A7 , 02 ,F0 ,2B , A4 
520 DATA 5F,C4,FC,F0,21,E4,D6,F0 
530 DATA 02 ,B0 , 1B ,20 ,E4 ,FF,F0,FB 
540 DATA A3, 91 ,20 ,D2 ,FF ,20 , 2C ,A8 
550 DATA 20 ,D7 , AA ,20 ,44 ,E5 , A4 ,FB 
560 DATA 88 ,88 ,68 ,4C ,D8 ,A6 , A6 ,5F 
570 DATA 86 ,FC , A4 ,FB ,68 ,4C , 1A , A7 
580 FOR X=0 TO 87: READ Y*:G0SUB 6! 

0SPOKE 679 +X , Ys NEXT 
5S0 END 

600 REM ******************** 

610 REM * CONVERTE ESA<Y$) * 

620 REM * IN DEC ( Y ) * 

630 REM ******************** 

640 : 

650 FOR N= 1 TO £ : Y<N> =ASC 0<1ID$< Y* 
,N) ) 

660 Y<N>=Y<N)-48+(Y<N) >645*7 
670 IF Y (N) <0 OR Y<N)>15 THEN 690 
680 NEXT:Y=16*YU >+Y<2) tRETURN 
690 PR INT" ID0LIN3ERR0RE DATA IN RIG 
A 11 <PEEK (63 ) +256*PEEK <64 ) ) :END 
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Solo SHIFT, Quante vette abbiamo utilizzato questo tipo di 
^ga nei nostri programmi? 

10GETXS: 1FXS= M "THEN 10 
Un qualsiasi tasto premuto fa proseguire il programma. 
Digitando invece l'istruzione WAIT t si può ottenere un el- 
leno migliore. Infatti solo se il tasto SHIFT viene premuto sì 
prosegue, altrimenti il programma rimane conge fato netta riga 
in questìone. 

Qual è l'istruzione completa 7 Eccola: 

WAIT 653,1.0 

(La redazione} 
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BASIC 4.0 

PER COMMODORE 64 


di Roberto Tagliabile 


Tra la incommensurabile quantità di 
software disponibile per il 64, una certa 
categoria di utenti spesso predilige co- 
noscere e possedere delle utility atte a 
svolgere la più eclettica scelta di aiuti, 
risultati, e non so quale altra "cosa" an- 
cora, Per utility si intende per antonoma- 
sia una parola un po' magica dietro la 
quale si può nascondere di tutto. 

Nel caso del BASIC 4.0 ci troviamo dì 
fronte a qualcosa di più di una normale 
utility. Possiamo infatti tranquillamente 
considerarlo un grosso ampliamento 
delle primitive implementate sul 64. 
L'ampliamento riguarda principalmente 
comandi e poche istruzioni; vengono ad 
essere sintetizzate e faci Sitate le opera- 
zioni su disco, stampante, parecchie 
operazioni di editing e procedure dì de- 
bugging, oltre ad avere fa possibilità di 
una piccola gestione di test). 

Si tratta in sintesi di una quarantina di 
comandi che riassumono operazioni già 
ottenibili senza BASIC 4.0, ma di più 
complessa stesura (tipicamentecoman- 
dì per il disco) , oppure che permettono dì 
compiere operazioni che troviamo non 
solo nei BASIC evoluti, ma anche in si- 
stemi operativi di potenti mini e personal 
computer. Tutti coloro che hanno cono- 
sciuto l'informatica e Fa programmazio- 
ne, su macchine più grosse degli home 
saranno motto felici di poter ritrovare, 
magari con un nome diverso, tanti utili 
comandi che permettono una gestione 
più chiara e veloce di tutte le risorse 
della macchina. 


1 comandi per II disco 

APPEND 

BACKUP 

CATALOG 

CHAINE 

COLLEGI 

CONCAT 

COPY 

DOLOSE 

DIRECTORY 

DLOAD 

DOPEN 

OSA VE 

EXECUTIVE 

HEADER 

INITIALIZE 

RECORD! 

RENAME 

SCflATCH 

SEND 

USE 


Salta subito all'occhio, finalmente, la 
possibilità di poter vedere la directory di 
un disco senza perdere il programma 
contenuto in memoria. Si ovvia così alla 
più vistosa carenza della gestione del 
disco. 

Come possiamo notare non è più il 
numero del device che ìndica il disco 
piuttosto de! nastro. Ora possiamo usa- 
re LO AD per il nastro e DLOAD per il 
disco* I vantaggi però non sono certa- 
mente così banali. Possiamo Infatti, co- 
piare, cambiar nome, cancellare ecc,.. 
files senza dover usare OPEN od altre 
istruzioni del genere. 

Viene quindi ad essere completato il 
quadro delle primitive del DOS che forse 
non si possono considerare veramente 
complete senza questo ausilio. C'è ov- 
viamente una piccola precisazione da 
fare per quanto riguarda il DLOAD: infat- 
ti sìa quando il programma BASIC 4,0 


risieda su cartrìtige, oppure venga cari- 
cato da disco, esso occupa una porzio- 
ne di memoria che non viene utilizzata 
dai programmi in questo linguaggio, a 
meno che non sì usino delle POKE nei 
medesimi indirizzi. Ciò può accadere 
spesso con programmi e routine di gio- 
chi. Se si tenta dì caricare un gioco utiliz- 
zando i comandi del BASIC 4.0, quasi 
sicuramente non solo non si ottenà il 
risultato voluto, ma si sarà costretti a 
spegnere il computer. 

Malgrado questo inevitabile particola- 
re, non mi sento di poter giudicare nega- 
tivamente questo aspetto. Infatti credo 
che il BASIC 4.0 sia stato creato proprio 
per migliorare le possibilità dì lavoro in 
BASIC e per fornire un valido aiuto alla 
programmazione, non per caricare g io- 
chini, compito ampiamente svolto dal 
normale LOAD, 

Troviamo degno di nota il comando 
EXECUTIVE, che produce il lancio im- 
mediato del programma caricato senza 
che si debba digitare RUN. 

Interessante è anche la possibilità dì 
avere due diversi tipi di formattazione: 
possiamo infatti compiere la normale 
formattazione per i dischi vergini, men- 
tre per guelfi già usati è sufficiente can- 
cellare solamente fa traccia 16, quella 
cioè che contiene l'infestazione del di- 
sco e la directory, risparmiando così 
tempo e lavoro per il drive. Tutto dò è 
possibile tramite il comando HE ADE R, Il 
cancellamento della sola traccia 18 av- 
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viene omettendo il parametro che asse- 
gna l'ID al disco 

La parte del leone fra le istruzioni del 
BASIC 4.0 viene sicuramente assunta 
dai comandi di editing che aggiungono 
un tono notevolmente più protese fona le 
ai versatilissimo 64 


i comandi di editing 

AUTO 

CHAIN 

CHANCE 

DELETE 

FINO 

LCOPV 

LMOVE 

MERGE 

OFF 

PAGE 

RENUMBER 


Con questa serie di comandi possia- 
mo permetterci il lusso di manipolare ! 
programmi con estrema facilità, sia in 
fase di stesura che in fase dì amplia- 
mento e modifica, Con l'Istruzione AU- 
TOnon è più necessario battere il nume- 
ro di linea ogni volta che si inizia una riga 
BASIC, Il comando sarebbe più comple- 
to se sì potessero usare le LABEL al 
posto dei numeri dt linea al fine di otte- 
nere una programmazione dei salti GO- 
TO e GQSUB più elastica e al tempo 
stesso dinamica. In questo modo non 
sarebbe più necessario pensare a (resi- 
stenza del numero di linea, si potrebbe- 
ro identificare ìe linee di programma non 
più con il numero relativo, ma con dei 
riferimenti mnemonici chiamati "etichet- 
te", LABEL in inglese, che darebbero 
l'Indirizzo logico delta linea, più facile da 
ricordare e modificare. Forse sto chie- 
dendo veramente troppo. Credo però 
che, per ciò che deve essere il BASIC 
4.0, la mancanza delle LABEL sia da 
considerarsi una pesante carenza. 

Pregevole è invece il comando che 
permette di cercare stringhe, istruzioni, 
funzioni, variabili ecc.., Per esempio al- 
l'Interno di un programma può essere 
molto Utile poter verificare il numero di 


FOR e controllare se ognuno di questi 
possiede il suo NEXT senza dover guar- 
dare finterò sviluppo del programma 
(comando FINO). 

Possiamo anche cambiare il nome di 
una variabile, una stringa, una istruzio- 
ne, In una parte o nell'Intero programma 
con un solo comando e inoltre controlla- 
re e confermare Eo svolgimento di questa 
operazionevofta pervotta (CHANGE). 

Qualora si volesse cancellare un 
gruppo di linee di programma non sarà 
più necessario digitarne il numero corri- 
spondente e battere RETURN, Basterà 
assegnare il rango di linee da cancellare 
al comando DELETE, 

Quando invece vogliamo osservare 
un listato o parte di esso superiore alle 
poche righe che lo schermo ci concede, 
il comando PAGE ci permetterà sempre 
di visualizzare la parte di programma 
che occupa esattamente una pagina dei 
video e non solo... potremo anche guar- 
dare sia in avanti che alHndietra 

Molto bella e utile è la funzione RE- 
NUMBER. L'unico suo difetto sta nel- 
l'essere eccessivamente lento; spesso 
infatti per rinumerare programmi di me- 
dia lunghezza si è costretti ad attendere 
svariati ed interni inabili minuti. 

Un altro comando molto interessante, 
MERGE, ci permette di poter unire due 
programmi in uno solo purché non esi- 
stano numeri di linea coincidenti, nel 
qual caso il comando RENUMBER può 
essere utile per evitare linee nei due 
programmi coincidenti. 

1 comandi per la stampante 

I comandi per la slampante, benché 
siano solo due, permettono di migliorar- 
ne la gestione. Abilitando Infatti la printer 
con il comando ENABLE, possiamo fra 
l'altro indicare il significato che ogni co- 
dice ASCII, in genere quelli di controllo 
interiori al 32, deve assumere a seconda 
della stampa che si vuole ottenere o del 
tipo di stampante che stiamo usando. 
Naturalmente ogni periferica di questo 
tipo, benché rispetti un protocollo dì co- 
municazione. ha una gestione particola- 
re dei caratteri di controllo e spesso solo 


l'esperienza e le prove che ognuno sin- 
golarmente esegue possono dare una 
specifica esemplificazione di ogni codi- 
ce. Consigliamo quindi ad ognuno dì ap- 
prendere personalmente le caratteristi- 
che delia propria stampante e il modo 
migliore per sfruttarle, 

I comandi di DE-BUG 

I comandi di DE-BUG sono tre: 
DUMP, TRACE, HELP. Durante l'ese- 
cuzione del programma ognuno di essi 
permette di controllare piu a fondo ciò 
che effettivamente il computer sta ese- 
guendo. Detti comandi devono essere 
impartiti ed attivati solo ed esclusiva- 
mente in maniera diretta, cioè al di fuori 
del programma in oggetto. 

Con it comando DUMP possiamo ve- 
dere i valori assunti da ogni variabile 
semplice, esclusi vettori e matrici, du- 
rante tutta l'esecuzione del programma. 
Sarà così possibile accorgerai se un as- 
segnamento avviene prima dì quando 
vorremmo, o se una variabile assume un 
valore non voluto e cosi via. 

Forse è ancora più utile il comando 
TRACE, che permette di visualizzane, 
sempre durante fo svolgimento del pro- 
gramma, il numero di linea in esecuzio- 
ne. Potremo così controllare se abbiamo 
strutte rato saHi e test come volevamo. E' 
possibile fare in modo che l'esecuzione 
venga rallentata agendo sul tasto SHIFT 
e riprendere alla velocita normale con il 
tasto Commodore. 

II comando HELP ci permette di sape- 
re esattamente non solo il numero dt 
linea dove si è verificato un errore, come 
segnala il sistema operativo, ma anche il 
punto esatto delia linea in cui l'interprete 
ha trovato un errore. Dopo che il compu- 
ter avrà segnalato Tenore, digitando 
HELP verrà stampata l'intera linea indi- 
cata e la linea in negativo indicherà Te- 
satìo punto in cui è stala riscontrata Pa- 
nomatia. HELP però agisce anche se un 
errore non è presente: infatti se coman- 
diamo uno STOP da tastiera ed in seuìto 
impartiamo PHELP, verrà visualizzata 
l'ultima linea in esecuzione, senza che 
sìa evidenziata la singola istruzione 
attiva. 
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Scrivere brevi testi 

Possiamo adoperare il BASIC 4.0 per 
produrre lettere o stampe di testi molto 
veloci. Non si ha assolutamente la pre- 
tesa di avere un wordprocessor comple- 
to, ma la "facitrty" rappresenta un picco- 
lo ausilio per stendere, con pochi co- 
mandi mollo semplici, dei testi brevi. 
Possiamo quindi dire che proprio questa 
performance caratterizza un buon Text 
Editor, 

Con il comando LITTERAL entreremo 
in questa modalità e con TYPE potremo 
stamparne il testo, scegliendo il mangine 
sinistro, privato del numero di linea pre- 
sente in fase di scrittura. 

Il comando BASIC, proprio fa parola 
stessa, ci permetterà di ritornare all'in- 


terprete escludendo il 4.0. 

L'ultima utility riguarda le variabili OS 
e DS$ f ovvero Disc Status, che non vie- 
ne citata sul manuale. In essa viene con- 
servato il resoconto dell'ultima opera- 
zione compiuta su disco. Se il file cerca- 
to era presente, se ha incontrato degli 
errori nel caricamento, ecc. le due varia- 
bili conterranno un codice direttamente 
legato allo stato di comunicazione della 
periferica in oggetto. La scoperta dell'e- 
sistenza di questa utility, che nel BASIC 
4. 0 diventa di sistema, è stata fatta quasi 
casualmete adoperando, in un banale 
programma, proprio DS$ r ma.. Il BASIC 
4,0,.*, ha dato errore. 

Conclusioni 

Alla fine di questa pìccola analisi pos- 


siamo sicuramente affermare che d tra- 
viamo di fronte ad un buon prodotto che 
adempie quasi completamente ai com- 
pito di assegnare professionalità e di 
conseguenza semplicità di utilizzo al 
Commodore 64, Le carenze e imperfe- 
zioni riscontrate non squalificano co- 
munque il prodotto che può tranquilla- 
mente classificarsi tra le più ambite utili- 
ty per il C 64, 

Solo con un persistente utilizzo si po- 
trà comunque apprezzare in pieno tutto 
il suo valore. Lasciamo quindi a voi rutti- 
ma parola, quella sicuramente più auto- 
revole, per stilare un giudizio definitivo 
che, siamo certi, non potrà che essere 
positivo. 

Buon lavoro, quindi, con il BASIC 4.0. 
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Modulando & 
demodulando 


di Carlo Bolchinl 
e Fabrizio Ferrarlo 



1* Introduzione 

Sicuramente molti di voi hanno 
già sentito parlare di MODEM, ma è 
probabile che la maggior parte ab' 


bia solo una vaga idea del suo sco- 
po e del suo funzionamento. 

Il MODEM (termine che deriva 
dalla contrazione delle parole 
MQdulatore-DEModutatore) è in- 


dubbiamente una delle più interes- 
santi e potenti periferiche che pote- 
te col legare al vostro sistema, il suo 
costo è di gran lunga Inferiore a 
quello di un drive o di una stampan- 
te, ma con esso potete avere di- 
scussioni elettroniche con compu- 
ters molto piu sofisticati del vostro. 
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Inoltre potete scambiare softwa- 
re attraverso 11 telefono, condurre 
affari a distanza, conversare con I 
vostri amici in maniera piu «moder- 
na» e, perchè no, avventurarvi In 
banche dati contenenti centinaia di 
migliaia di informazioni* Per poter 
fare tutto questo avete bisogno di: 
computer (ovviamente), modem e 
unlnterfaccla seriale RS-232. 


2. Il Modem e la linea tele* 
fonica 

La normale linea telefonica, quel- 
la a cui è solitamente collegato il te- 
lefono domestico, è stata concepita 
sofo per le normali conversazioni 
parlate. La conseguenza è che la 
banda di frequenza del segnale che 
può venire trasmesso non è molto 
ampia: varia da 300 a 3400 Hertz cir- 
ca. Questo limita sensibilmente la 
velocità di trasmissione dei dati, In 
quanto essa dipende proprio dalla 
frequenza, 

DI solito il massimo raggiungibile 
è di 2400 Baud, anche se, utilizzai 
do una linea dedicata - cioè che fa 
solo quel lavoro - delia migliore qua- 
lità, si riesce anche a raggiungere 
una velocità di 9600 baud (circa 960 
caratteri a! secondo). 

Per Inviare dati dai computer at- 
traverso la linea telefonica, occorre 
trasformar© i bit de! computer in se- 
gnali audio. Il modem è fatto appo- 
sta per questo, cioè per convertire 
(modulare) I numeri del vostro com- 
puter In audio-frequenze adatte per 
Il sistema telefonico, e ritrasforma- 
re (demodular©} i suoni In arrivo in 
bit* 

Tutti gli zero © uno che compon- 
gono Il messaggio da trasmettere 
vengono convertiti in segnali audio, 
che sono trasferiti lungo la normale 
linea commutata dall'altro capo del 
filo (come qualsiasi telefonata vo- 
cale}, dove viene effettuata l'opera- 
zione Inversa. Una volta stabilito 
che allo zero corrisponde una data 
tonalità, e alleno un’altra ben di- 
stinta, lungo la lìnea si può Inviare 
qualsiasi serie di bit Se ascoltate 11 
segnale in uscita da un modem, 
sentirete un fischiare simile a quel- 
lo registrato sulle cassette di pro^ 
grammi. 


3. RS-232 

Uno standard Importante nella 
trasmissione dati è quello definito 
RS-232, che ha come corrisponden- 
te europeo II V. 24. Non faremo qui 
una trattazione completa, In quanto 
ciò esula dagli scopi di questo artì- 
colo (e richiederebbe motte pagina), 
ma daremo alcune essenziali Infor- 
mazioni su questo particolare Inter* 
faccia. Questo standard è piuttosto 
vecchio (infatti risale all'agosto del 
1969) ed è stato studiato dalTEtec- 
tronlc Industries Assoclatlon (EIA), 
TAssociazIone americana delle In- 
dustrie Elettroniche. 

A che cosa serve questo stan- 
dard, o meglio, questa Interfaccia? 
All'interno del vostro computer ì da- 
ti viaggiano In modo paralleìo t cioè 
su vari canali contemporaneamen- 
te, mentre alluseli a dell' RS-232 es- 
si sono, per cosi dire, in fila Indiana, 
uno dopo l'altro* ovvero In forma se- 
riale. 

Questa Interfaccia ha li compito 
di serializzare l dati da trasmettere 
(in questo caso al modem) e di pa- 
ra I iei ! zzare l dall ricevuti. L' RS-232 
gestisce la comunicazione tra ter- 
minal© (o computer) e modem. Essa 


può servire anche per pilotare una 
stampante o un plotter. Vi sono vari 
segnali, che permettono la gestione 
completa delle periferiche, median- 
te software progettato apposita- 
mente. I segnali più Importanti so- 
no: 

RD = Received Data (Dati Ricevuti) 
TD “ Transmitted Data (Dati Tra- 
smessi) 

DTR = Data Terminal Ready (Termi- 
nale Dati Pronto: segnale che per- 
mette di sapere se 11 terminale è ac- 
ceso; identifica anche un computer) 
DSR 2 = Data Set Ready (Modem 
Pronto: complementare del prece- 
dente, segnala al terminale che il 
modem è attivato) 

RTS = Request To Send (Richiesta 
DI Trasmissione; controlla la fun- 
zione di trasmissione dei modem e 
la direzione di trasmissione dei ca- 
nale principale, vedi Tipi di Modem]. 
CTS = Clear To Send (Pronto A Tra- 
smettere: segnala al terminale che 
il modem è pronto a Inviare 1 dati). 

La norma RS-232 definisce anche 
Il tipo di connettore da usare. Il con* 
nettore è di tipo Cannon, a 25 poli, 
anche se normalmente non tutti 
vengono utilizzati. I segnali fonda- 
mentali sono quelli appena visti* 
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quanto vengono collegati diretta- 
mente alla rete telefonica, senza II 
tramite dell'apparecchio «sonoro»- 1 
segnati In uscita dal computer ven- 
gono convogliati su fili collegati al- 
la presa al posto del telefono, mé 
modo da avere una trasmissioni 
senza interferenze (almeno acustl' 
che) esterne, li collegamento alla 
rete di un modem diretto deve esse- 
re autorizzato dalla SIP. 

I modem (di qualsiasi tipo) posso- 
no funzionare In diversi modi: sim- 
plex, half duplex, full duplex, relati- 
vamente a come vengono gesti!! i 
canali di comunicazione. 

II primo tipo di canale è usato so- 
lo In casi particolari, ed Òrdlf Fidile^ 
che I costruttori mettano 
marcio mòdem con modalità slfar 
plex. La trasmissione avviane (tv 


lì fatto che sia praticamente Io 
standard piu diffuso permette il col- 
legamento tra svariati tipi di termi- 
nali e di sistemi, spesso anche mol- 
to diversi tra loro. 

4. Tipi di Modem 

Esìstono fondamentalmente due 
tipi di modem: quelli ad accoppia ■ 
mento acustico e quelli ad accop- 
piamento difetto. Ciascuno ha i 
suoi prò e I suoi contro: I modem 
acustici si vedono spesso nei filma 
e nel telefilm dove compare un com- 
puter* Per esemplo, quello che usa- 
va il ragazzino Interprete di Warga- 
mes era un modem ad accoppia- 
mento acustico* 

Questo tipo di modem si presen- 
ta di solito come una scatola bassa 
allungata, non molto grande, quindi 
faòìie da trasportare, con due cuffie 
di gomma destinate a ricevere la 
cornetta. In questo caso II telefono 
e il modem sono due entità separa- 
te, senza alcun collegamento elet- 
trico tra di loro. Il vantaggio di qua» 
sta sistema è che non richiede ma- 
nipolazioni della linea telefonica. 
Basta digitare II numero, attendere 
Il segnate di risposta dell'altro com- 
puter, e appoggiare la cornetta sul 
modem. Lo svantaggio deriva dal 
fatto che 1 dall vengono trasferiti al- 
la cornetta telefonica tramite onde 
sonore. All'Interno delle due cuffie 
del modem sono presenti un picco- 
lo altoparlante e un microfono; Il 
primo serve per trasmettere II se- 
gnale alla cornetta, il secondo per 
riceverlo. Ciò comporta, evidente- 
mente, la possibilità di incorrere in 
errori, In quanto possono essere 
trasmessi anche disturbi di varia 
natura: cattiva ricezione da parte 
della cornetta, rumori provenienti 
dalla stanza In cui si trova, oltre alle 
«normali» (un po' troppo normali, In 
Italia.*.) interferenze proprie della li- 
nea telefonica. Le cuffie di gomma, 
spesso foderate con altro materiale 
fonoassorbente, hanno lo scopo di 
proteggere II più possibile il trasfe- 
rimento di «bip-bipn tra modem e 
cornetta, ma l'isolamento non potrà 
mai essere totale. 

I modem ad accoppiamento diret- 
to sono molto meno sensibili al ru- 
mori provenienti dall'esterno, in 


modo unidirezionale, cioè un'unità 
può solo trasmettere e l'altra può 
solo ricevere, senza avere la possi- 
bilità di Invertire I ruoli. 

Con la modalità Half duplex la 
trasmissione può avvenire nelle due 
direzioni ma solo alternativamente: 
prima un'unità trasmette e poi rice- 
ve, ma non contemporaneamente. 
Viene usata una sola linea e lo 
scambio da trasmissione a ricezio- 
ne può essere fatto sia manualmen- 
te - tramite interruttori - sia via soft- 
ware. 

Il modo più comodo ovviamente è 
quello di poter trasmettere e riceve- 
re contemporaneamente: Il modem 
progettato per funzionare In questo 
modo è detto a trasmissione Futi 
duplex . In questo caso vi sono due 
canali di comunicazione, uno prin- 
cipale e uno di ritorno (Bacfrwartf 
Channefj, dove la direzione di tra- 
smissione dei dall è contrarla a 
quella del canale principale. 


5, Standard® 
internazionali 

Nel campo della trasmissione da- 
ti esistono parecchi standards in- 
ternazionali (forse anche troppi) 
frutto di accordi per rendere sempre 
piu compatibili sistemi di nazioni 
diverse* Occorre distinguere tra 
standard europei e standard ameri- 
cani. Per quanto riguarda l'Europa, 
principalmente se ne usano due. en- 


trambi stabiliti dal Consultativè 
Committee for International Teie- 
graph and Telephone (CCITT, Comi- 
tato Consultivo per Telegrafia e Te- 
lefonia Internazionale). 

La prima norma che ci Interessa - 
CCITT V* 21 - stabilisce le caratteri- 
stiche dei modem operanti con ve- 
locità fino a 300 bit al secondo 
(Baud Rate). Consente Ja trasmis- 
sione In full duplex con velocità 
massima di trasferimento di circa 
30 caratteri ai secondo. Operando 
su linee commutate (la normale li- 
nea telefonica), la frequenza sul 
due canali, come già detto* deve es- 
sere compresa tra 300 e 3400 Hz* 

Gli accordi prevedono che il ca- 
nale 1 abbia una frequenza di 1080 
Hz e 11 canale 2 di 1750 Hz., con de- 
viazione massima consentita di + 
o - 100 Hz. Perciò net canale 1 la fre- 
quenza da utilizzare per trasmettere 
un uno è di 980 Hz, per trasmettere 
uno zero è di 1180 Hz. 

Una seconda norma - standard 
asimmetrico 1200 baudf75 baud V 4 
23 - viene seguita, per esempio, dal- 
la Preste! della British Telcom. Que- 
sta database Inglese manda 
al l'utente i dati a 1200 baud e li rice- 
ve a 75. Questa disparità è dovuta ai 
fatto che l’utnizzatore deve fare 
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Modem 

integrato 


semplicemente delle scelte, tinnia- 
te a pochi caratteri, quindi 75 baud 
sono più che sufficienti. 

Esistono poi altri standard; ricor- 
diamo ancora il V. 26, per modem 
funzionanti a 2400 baud, ideato per 
la trasmissione con modem diretti, 
su linee dedicate, che funzionino 
con modalità full duplex. In Ameri- 
ca si utilizzano altri standard, svi- 
luppati principalmente dalla Bell 
Per esempio 11 Bell 103 - 300 baud - 
simile, ma non uguale, al V* 21 euro- 
peo (usa frequenze diverse); oppure 
il Bell 102 - 1200 15 baud -, slmile al 
V. 23. 

Vi sono altre norme CGITT, che 
non riguardano direttamente le ca- 
ratteristiche del modem, ma di cui il 
costruttore deve tener conto. Quelle 
da V. 1 a V. 6 riguardano; Significa- 
to dei valori 0 ed 1, Livelli di potenza 
dei segnali di trasmissione, Alfabe- 
to utilizzato, Struttura dei caratteri 
(bytes), Velocità di trasmissione 
(600, 1200, 2400, 4800 baud), Veloci- 
tà di trasmissione su linea dedica- 
ta. 

Inoltre esistono varie reti nazio- 
nali ed intemazionali, di solito fun- 
zionanti a 1200 baud. 

Se avete abbastanza fortuna potre- 
te collegarvi anche con esse. 


6. Software 

Per poter usufruire del modem, 
avete bisogno di un software di ge- 
stione. Un programmino molto sem- 
plice può controllare la RS * 232: 
"spedire" I caratteri alla porta se- 
riale e inviare i dati in arrivo allo 
schermo {o altrove}. Un programma 
più pratico però deve essere più 
complicato. Per esempio dovrebbe 
controllare e cambiare, se necessa- 
rio, la lunghezza delle parole - dati. 
Mei la trasmissione dati di solito 
non viene spedito semplicemente il 
byte, ma gli vengono aggiunti vari 
blts (prima, dopo, nei mezzo), con si- 
gnificati diversi. 

Tutto questo per raggiungere una 
alta qualità dì trasmissione e una 
bassa percentuale di errori li modo 
In cui questi bit extra vengono com- 
binati, si chiama formato di tra- 
smissione. 

Il formato di trasmissione più 
semplice è: 

bit di start / byte di dati / bit di 
stop 

Qui abbiamo 1 bit di start, che in- 
dica che il byte di dati lo segue; il 
byte; 1 bit di stop per indicare che la 
parola - dato è finita. Può esserci 
anche più di un bit di stop, e anche 
vari bit di "parità", sempre per ave- 
re una maggiore sicurezza contro 
gli errori, 

li controllo di parità à uno del me- 
todi più diffusi per il riconoscimen- 
to degli errori durante la trasmissio- 
ne dati. Il bit di parità è un bit che si 
aggiunge al byte di dati tn partenza 
con un valore (0 od 1), in modo che il 
nuovo carattere ottenuto - con l'ag- 
giunta del bit - abbia un numero pari 
di bit con valore 1 (parità pari, in in- 
glese even) t oppure abbia un nume- 
ro dispari dì bit a 1 (parità dispari, 
odefl. 

Non tutti I sistemi gestiscono gli 
stessi formati di trasmissione. Po- 
trebbe capitare di coilegarsl con un 
computer che spedisca parole dati 
con due bit di stop, mentre il nostro 
ne riconosce solo uno. Ecco quindi 
l'utilità di poter cambiare a nostro 
piacimento il formato delle parole - 
dati. 

Altra funzione essenziale di un 
programma di gestione è quella dì 
rimandare allo schermo I caratteri 
che state battendo, In modo da po- 


ter vedere quello ohe state scriven- 
do, prima di spedirlo. Infatti, a ogni 
carrlage return (ENTER), I dati ven- 
gono subito spediti in linea e sono 
cosi "persi". 

Un'altra opzione utile è la possi- 
bilità di programmare alcuni del ca- 
ratteri della tastiera; non tutti I com- 
puters usano lo stesso codice del 
vostro, e anche se esistono alcuni 
standars di codici di caratteri, spes- 
so I costruttori di computers non il 
seguono, eppure II estendono a loro 
piacimento. 

I due Insiemi di caratteri più lar- 
gamente usati sono: 

Codice ASCII (American Stan- 
dard Gode for Information Inter- 
change *= Codice Standard Ameri- 
cano per l'Interscambio di Informa- 
zioni), che si legge "àschl": 

Codice EBCDIC (Extended Blnary 
Coded Decimai Information Code), 

II codice ASCII, Il piu diffuso del 
due, stabilisce una sequenza di ca- 
ratteri ordinati da 1 a 128. Esso si 
divìde in due parti: caratteri di con* 
frollo (del cursore, del video, del ter- 
minale) e I caratteri veri e propri. Le 
differenze maggiori negli ASCII pre- 
senti su home computers riguarda- 
no I caratteri di controllo. 

In un collegamento tra due com- 
puters che non abbiano corrispon- 
denza di codici, occorre possedere 
le due tabelle e predisporre una 
transcodifica al momento delia ri* 
cezìone (o della trasmissione), È an- 
che desiderabile potere bloccare 
temporaneamente II flusso del dati 
In arrivo» cosi che possiate dedicar- 
vi temporaneamente ad altre fac- 
cende, come saivare files su nastro 
oppure andare ad aprire la porta. 
Per questo su molti terminali ci so- 
no i tasti chiamati Xon ed Xoff, 
spesso CTRL-S e CTRL-Q, 

Esiste anche il cosiddetto proto- 
collo Christensen o Xmodem, che 
permette II trasferimento di dati con 
una bassissima percentuale di erro- 
ri. 1 dati che devono essere spediti 
vengono trasmessi in blocchi di 128 
bytes e vengono controllati uno per 
uno. Se qualcosa non corrisponde» 
Il computer ricevente richiede un'al- 
tra trasmissione dei blocco Incrimi- 
nato. 

Per ora è tutto: a risentirci. ..molto 
presto. 
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TRIGONOMETRIA 


di Mauro Massetti 



La trigonometria come ogni altra branca 
delle scienze non nacque dall'opera di 
un solo uomo, bensì fu frutto del contri- 
buto di popoli diversi sia per periodo sto- 
rico cri e per cultura. Questa branca delta 
matematica, con cui si viene a contatto 
nel secondo biennio delle Scuole Medie 
Superiori, si presta ad essere utilizzata 
in molti casi pratici, come ad esempio: 
date le misure di alcuni elementi che 
costituiscono un triangolo, in un numero 
sufficiente ad individua rio, determinare 
le misure degli elementi rimanenti, 

I casi che si possono trovare nel riso!* 
vere il problema corrispondono ai quat- 
tro criteri dì uguaglianza dei triangoli: 

* dati tre lati 

- dati due lati e l'angolo compreso 


- dati un lato e due angoli 

- dati due lati e Tangoto opposto ad uno 
di essi 

Per risolvere tutto questo si fa ricorso 
alla trigonometria piana, il cui scopo è 
quello di determinare fe relazioni che 
legano in un triangolo piano i lati agli 
angoli e di applicare queste relazioni alla 
risoluzione dei triangoli piani. Prima di 
passare alla presentazione dì program- 
mi che permettono il calcolo del teorema 
dei senì h del coseno e delle formule dì 
trigonometria più utilizzate, vogliamo II* 
lustrare le origini di questa branca della 
matematica, motto spesso non riportate 
nei libri di testo utilizzati dagli studenti. 


Un po’ di storia 

I teoremi concernenti i rapporti fra ì lati 
di triangoli simili fra loro erano già cono- 
sciuti ed usati ai tempi degli egiziani e 
babilonesi, anche se m quel periodo non 
esisteva ancora il concetto di misura an- 
golare. E 1 -solo con i greci che si trovò, 
per la prima volta, uno studio sistemati- 
co delle relazioni intercorrenti tra gii an- 
goli {o archi) di un cerchio e le lunghezze 
delle corde che lì sottendono. 

Queste proprietà erano già note ai 
Greci al tempo di tppocrate, in quanto 
sembra abbastanza probabile che Eu- 
dosso avesse utilizzato i valori di rappor- 
ti e le misure di angoli per poter determi- 
nare le dimensioni delia terra e le distan- 
ze relative del sole e della luna. Nel libro 
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fi) degli "Elementi" di Euclide si posso* 
no trovare delle proposizioni che equi- 
valgono alla legge dei coseni applicata 
però ad angoli ottusi ed acuti; sono tutta- 
via formulate in termini geometrici piut- 
tosto che trigonometrici. 

In uno sviluppo sempre maggiore del- 
l'astronomia nell'Età Alessandrina, do- 
vuta a Eratostene di Cirene {276ca.- 
194ca.a,C.) e Aristarco di Samo 
(3f0ca.-230ca,a.C.), emerse sempre 
più la necessità di relazioni sistematiche 
tra angoli e corde. Per circa due secoli e 
mezzo, da Ippocrate a Eratostene, i ma- 
tematici greci avevano studiato le rela- 
zioni intercorrenti tra rette e cerchi appli- 
candole a problemi astronomici, senza 
mai però pervenire ad una trigonometria 
nel senso stretto della parola 

Per questo bisogna arrivare ad fppar* 
co di Nicea (180ca,-l25ca,a,C.) che 
compilò quella che sembra essere la pri- 
ma tavola trigonometrica; fu per questo 
che egli passò, nella storia della mate- 
malica, con il nomedi "padre della trigo- 
nometria". Purtroppo però, non si cono- 
sce esattamente il modo con cui Ipparco 
giunse a costruire la sua tavola poiché le 
sue opere andarono distrutte. 

L'opera trigonometrica più importan- 
te, sia per l'influenza che esercitò sia per 
la significatività che ebbe in tutta l’anti- 
chità, fu la "Sintassi Matematica" in tre- 
dici libri scritta da Tolomeo di Alessan- 
dria, in cui vengono esposte le tavole 
Irigonometriche da lui descritte e la trat- 
tazione dei metodi utilizzati per 
costruirle. 

Nei calcoli delle corde di Tolomeo ri- 
vestì grande importanza una proposizio- 
ne geometrica ancor oggi nota come 
"Teorema di Tolomeo”, che condusse 
alla formula, ben nota agli studenti, sin 
{a4-b)=sinacosb4oosasinb e alla cop- 
pia analoga 

eos{ a ± b ) =cosacosb +s inacosb. 

Queste quattro formule che riguarda- 
no la somma e la differenza per i seni e i 
coseni sono oggi note come le "Formule 
di Tolomeo". Infatti fu proprio la fonnula 


per il seno della differenza che aiutò To- 
lomeo nella costruzione delie sue 
tavole. 

A questo punto però bisogna ricorda- 
re che daH'epoca di Ipparco sino all'età 
moderna non vi fu nulla di simile a quelli 
che noi oggi chiamiamo rapporti trigono- 
metrici Infatti sia i Greci che gli Indiani 
che gli Arabi usavano le linee trigono- 
metriche che inizialmente assumevano 
la forma di corde di un cerchio e a cui, 
grazie a Tolomeo, furono associati valori 
numerici. Per ottenere questo fu neces- 
sario introdurre due convenzioni; 

* uno schema che permettesse la sud- 
divisione della circonferenza 

* una reg ola pe r sudd i vide re il diametro 

Il primo punto sembra fosse già noto 
in Grecia ai tempi dì Ipparco e molto 
probabilmente fu derivato dall'astrono- 
mia. dove lo zodiaco era stato suddiviso 
in dodici "segni". Un ciclo delle stagioni 
di circa 360 giorni poteva essere messo 
in corrispondenza con il sistema dei se- 
gni dello zodìaco, suddividendo ciascun 
segno in trenta parti, inoltre, poiché il 
sistema babilonese per le frazioni era 
molto più avanzato di quello egiziano e 
greco, Tolomeo fu portato a suddividere 
I gradi in sessanta primi e questi ultimi in 
sessanta secondi. 

Fu proprio l'assunzione, da parte di 
Tolomeo, del sistema sessagesimale 
che lo portò a suddividere ri diametro del 
cerchio trigonometrico in 120 parti, cia- 
scuna delle quali suddivisa in sessanta 
minuti e ciascun minuto in sessanta se- 
condi. 

Da tutto ciò si può osservare come la 
trigonometrìa, che oggi è a tutti gli effetti 
parte integrante della matematica pura, 
allora era nata e si era sviluppata solo 
come un'applicazione della geometria 
elementare a problemi pratici di misura- 
zione per fornire un supporto sempre piu 
importante per fo sviluppo delia 
astronomia. 


Teorema del seni 
e del coseno 

Come si è già detto nell 1 introduzione, 
la trigonometria è lo strumento che per- 
mette di risolvere un triangolo rettangolo 
dati: 

• i due cateti 

• T ipotenusa e un cateto 

• un cateto e un angolo 

• ripotenusaeuncateto 

Infatti, se si considera un triangolo ret- 
tangolo ABC disposto in un sistema dì 
assi cartesiani come nella Fig.1 



” ^ Figura 1 

ricordando le definizioni per cui in un 
triangolo rettangolo il rapporto c/b tra ì 
due cateti viene chiamato tangente del- 
l'angolo g opposto al cateto c, Il rapporto 
c/a Ira II cateto opposto all'angolo g e 
V ipotenusa viene chiamato seno del- 
l'angolo g: il rapporto b/a tra il cateto 
adiacente all'angolo g e l'ipotcnusa vie- 
ne chiamato coseno dell'angolo g, 

T utto questo espresso in sìmboli è da- 
to da: 

tg(g)^c/b 

sin(g)-c/a 

cos(g)=b/a 

Utilizzando queste definizioni si 
ottiene: 

b=asìn{B) 

c=acos(B) 

b=ctg(B 

c=asin{g) 

b=acos(g) 

e=btg(g) 
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e utilizzando anche le relazioni: 

B+g=9Q 

a|2=b|2+c|2 

che sono note dalla geometria elemen- 
tare, si è in grado di poter conoscere 
totalmente il triangolo rettangolo che si 
considera. 

Poiché un triangolo, come si è impa- 
rato dalla geometria, è determinato co- 
noscendo tre dei suoi elementi, che non 
devono però essere lutti e tre gli angoli, 
risulta chiaro che per determinare tre 
elementi incogniti necessitano e basta- 
no tre relazioni analitiche indipendenti 

Se si indicano con a,b,c le lunghezze 
dei tati di un triangolo e con A.B.g gii 
angoli ad essi opposti, si possono facil- 
mente stabilire le seguenti relazioni in 
cui R indica il raggio del cerchio circo- 
scritto al triangolo; 

a/sìn(A)= 

b/sìn(B)= 

c/sln(g)=2R 

Esse infatti rappresentano il ben noto 
teorema del seni. Il rapporto costante 
che compare nella formula precedente è 
noto con ì\ nome dì modulo del 
triangolo. 

Partendo dal suddetto teorema ed uti- 
lizzando la relazione A+B4g=pigreco 
si possono ricavare le seguenti 
relazioni: 

a/sin(A)= 
b/sin(A-hg)= 
c/sin(A+B) (2) 

da cui si ottiene un altro importante teo- 
rema della trigonometria, il teorema del 
coseno o di Camot: 

a|2=bf24o2-2bccos(A) 
b]2~a}2-h:}2-2accùs(B) (3) 
cj2=a f 2 +b |2-2accos(g) 

A questo proposito bisogna osservare 
che i due teoremi precedentemente 
enunciati sono sufficienti per risolvere i 
vari casi in quanto: 


* dati a,b,c le relazioni utilizzate per il 
teorema dei coseno permettono di rica- 
vare cos(A),cos(Bhcos(g) 

* dati b,c.A t dalla prima equazione si 
ottengono a © gli altri angoli 

« dati b,c,8, con il sistema di equazioni 
(3) si calcola a. risolvendo un’equazione 
completa di secondo grado e quindi si 
ritorna al caso 2 

* dati un lato e due angoli, il terzo ango- 
lo si ottiene applicando la formula (2) 
mentre i rimanenti lati si calcolano utiliz- 
zando il teorema del seno. 

L'applicazione, però, del teorema del 
coseno è poco agevole in fase di calco- 
lo. soprattutto nel caso in cui non si pos* 
siede una tavola dei valori delle funzioni 
circolari. In generale si possiedono tavo- 
le dei logaritmi delle funzioni circolari e 
per questo motivo che è più utile ricorre- 
re a relazioni che permettono il calcolo 
degli elementi incogniti utilizzando sem- 
plicemente le operazioni di moltiplica- 
zione, divisione ed estrazione di radice. 

Il programma 

Si passa ora ad illustrare come è stato 
sviluppato il programma di calcolo del 
teorema del seno e di quello del coseno. 
Il suddetto programma è stato struttura- 
to in modo da risultar© non solo un mero 
strumento di calcolosa un ausilio didat- 
tico per chi desidera imparare l'utilizzo di 
questi importanti teoremi trigonometrici. 

In esso compaiono delle videate 
esplicative che sono strutturate nella se- 
guente configurazione: 

- superiormente la presentazione delta 
formula utilizzata; 

- nella zona inferiore del video compaio- 
no in un primo momento la richiesta dei 
dati e successivamente I risultati fomiti 

Il programma comprende le seguenti 
linee esplicative: 

REMarks 

* alla linea 100 vi è il rinvio alla masche- 
ra del menu principale; 

- dalla lìnea 110 alla linea 140 sono al- 
locate te subrautines di creazione delle 
cornici; 


- le linee 150 e 160 sono dedicate alta 
subroutìne di controllo dei codici di 
scelta 

- dalla linea 170 alla linea 210 è allocata 
la subroutìne di immissione dei dati; 

- dalla linea 220 alla linea 320 è allocata 
la videata relativa al menu principale; 

- dalla linea 330 alla linea 670 è allocata 
la videata relativa al teorema del seno; 

- dalla linea 680 alla lìnea 820 la videata 
relativa al teorema del coseno o di 
Camot 

I relativi calcoli sono stati fatti eseguire 
a IP interno delle routines riguardanti le 
rispettive videate. 
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90 REM ************************** 

91 REM * TEOREMI FONDAMENTALI DI * 

92 REM * TRI SONOMETRI A * 

93 REM * DI MAURO MASSETTI * 

94 REM ************************** 

100 GOTO 220! REM INIZIA IL PROGRA 
MMA 

101 REM ************************** 

102 REM *SUBROUTINES DI CREAZ IONE* 

103 REM *CORNICE ESTERNA INTERNA* 

104 REM ************************** 
110 PR1NT" ECLEAR ] " : FOR H=0 TO l:FO 

R K = 1 024 +H *9B0 TO I063+H*960:P 
OKE K , 1 02 ! NEXTK ! NEXTH 
120 FOR K= 1064 TO 1944 STEP 40SPOK 
E K,10£iPOKE K+3S,102:NEXTK:PR 
INT" [HOME ] " sRETURN 
130 FOR H=0 TO 1 ! FOR K = 126G+H*640 
TO 1 30 1+H *640 SPORE K,127!NEXTK 
: NEXTH 

140 FOR K= 1306 TO 1906 STEP 40:POK 
E K, 127:PDKE K+35, 127!NEXTK:PR 
I NT " IHOME I " s RETURN 

141 REM ************************** 

142 REM * SUB ROUTINE SCELTA MENU'* 

143 REM ************************** 
150 GET S*sIF S$<CHR3KA> OR S*>CHR 

$<B) THEN 150 

160 RETURN 

161 REM ************************** 

162 REM * SUBROUTINE INPUT DATI * 

163 REM ************************** 

170 X*=-":FQR 1=1 TO 10sX*< I ) = • • :N 
EXTI ! I = 1 ! PRINT- > 

180 GET SSSIF S$=CHR*<13> THEN PRI 
NT! FOR J = 1 TO l-UX*=X*+X$(J)i 
NEXTJ : RETURN 

190 IF CS*OCHR*<46) AND S*<CHR*<4 
8)> OR S*>CHRS<57> THEN 180 
200 IF I > 10 AND S*OCHR*<13) THEN 
180 

210 X*<I)=S*:PRINTS*J : 1 = 1 + 1 sGGTO 1 
80 

211 REM ************************** 

212 REM * MASCHERA NENU’ PRINCIPALE* 

213 REM ************************** 
220 GQSUB 110: GOSUB 130 

230 DEF FNASCX)=ATN<X/SQRC-X*X+1>> 
240 PRINT" 12 D0WNH3 RIGHTI 
TRIGONOMETRIA! “ 

250 PRINT" 19 RIGHT) TEOREMI FONDAM 
ENTALI ■ 


260 FOR 1=1 TO 1 000 ihCXTI SPRINT" [4 
DOWN] 15 RIGHT3 MENU' PR 

INC I PALE " 

270 PRINT" 12 DOWN] 18 RIGHT) 1 - TEO 
REMA DEI SENI " 

£80 PRI NT " I DOWN H 8 RIGHT32 - TEORE 
MA DI CARNOT " 

290 PRINT" 18 RIGHT] 0 DEL COSEN 
0 * 

300 PRINT* IDOW'JHS RIGHTJ3 - FINE 
LAVORO* 

310 PRINT" 12 D0UKH8 RIGHT3FATE LA 
SCELTA C 1 . . 3 ) : * 

320 A=49JB =51! GOSUB 150JON VALISI) 
GOTO 370,710,830 

321 REM ************************** 

322 REM * SUBROUTINE PER TEOREMA * 

323 REM * DEI SENI * 

324 REM ************************** 
330 GOSUB 1 101PRINT" £2 D0UNJ13 RIG 

HT3 TEOREMA DEI SENI» 

340 PRINT" 12 DOWN] C8 RIGHT] Li 
L2 L3 “ 

350 PRINT" 18 RIGHT]- = = 


360 PRINT» 18 RIGHT JSEN A SEN B 
SEN C* iRETURN 

381 REM ************************** 

362 REM «MASCHERA PER TEOREMA DEI» 

363 REM *SENI E PRESENTAZIONE DEI* 

364 REM * RISULTATI * 

365 REM ************************** 
370 GOSUB 330 SPRINT» 12 D0LNH5 RIG 

HTJ CALCOLO" 

380 PR I NT * 1 DOLIVI 113 RIGHT ]FORNIRE ! A 
) DUE LATI E UN ANGOLO» 

390 PRINT" 13 RIGHT] B) DUE 

ANGOLI E UN LATO" 

400 PRINT» EDObN] 13 RIGHT ]LATI ! I 
) ’ 

410 PRINT" 14 RIGHT] 2) 

H 

4£0 PRINT 11 [DOL4N3 [3 R IGNT1AN60L 1 1 ì 

) 

430 PRINT 11 1 3 RI0HT3 é> * 

.£5 UP3 " 

440 PR INT” t 1 4 RIGHT! " J 
450 FL=0 i GOSUB I70:L 1 =VAL <X$ ) : IF L 
ENCXS) >0 THEN FL=FL+ I 
460 PR INT“ C 14 R IGHT3 " * * GOSUB 170 :L 
2-VAL<K«>BlF LEN<X*)>0 THEN FL 
=FL+1 
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470 

170iAl=VALCX$)*,</180: IF LENCX 
*)>0 THEN FL=FL+1 

430 PRINT“t 14 RIGHTl"; iGOSUB 170:0 
2=VAL<X$)*</180: IF LEN<X$)>0 T 
HEN FL=FL+ 1 
490 IF FL >=3 THEN 530 
500 PR I NT " 1 0 CIUM ] [ 1 1 RIGHTJDATI INC 
OMPLETI " 

510 PRHvrT"Ill R IGHT IMA NCANO *; 3-FLJ 
"DATI " 

520 PR I NT " £ 9 URI";: GOTO 400 
530 IF L 1 =0 THEN L 1 =L2*S IN<A O/S IN 
< A£ ) • GOTO 570 

540 IF L2=0 THEN L2=L1*SIN<A2)/SIN 
<A1>:GOTO 570 

550 IF A 1 =0 THEN Al =FNAS<L1 *SIN(A2 
)/L2 > s GOTO 570 

560 IF A2=0 THEN A2=FNAS<L2*SIN<AI 
)/L 1 ) 

570 Al=Altl80/CA2=A2*180/rf 
580 A3=180-<A1 +A2):L3=Ll*SINtA3*#/ 
1 80 )/S IN( A 1 *if/180 ) 

590 GOSUB 330 SPRINT" £2 DOUNURIGHT 
1 RISULTATI» 

G00 PR 1 NT * I DOWN ] C 3 RIGHT1LATI ! " 
; INT <L 1 * 100 + . 5 >/100 
610 PR I NT “ £ 3 RI GHT 3 "J 1NTCL 

2*100+. 5Ì/I00 


620 PR I NT “ 1 3 RIGHTl ‘JlNTCL 

3*100+. 5)/100 

630 PRINT" £D0LW1 £3 R IGHT JANGOL I : " 

; INTtAl *100+ . 5)/100 
640 PRINT" £3 RI6HT] 

2*100+. 51/100 
650 PRINT" £3 RIGHTl 
3*100+. 55/100 

660 GET S*: IF S*="’ THEN 660 

670 GOTO. 220 

671 REM *** j|£ ^ f | 

672 REM * SUBROUTINE PER TEOREMA» 

673 REM * DEI COSENI 0 DI CftRNOT * 

674 REM 


INT (A 


INTC A 


680 GOSUB 110 SPRINT" £2 D0WNH3 RIG 
HT] TEOREMA DI CARNOT" 

690 PRINT " £8 RIGHTl 0 DEL COSE 

NO 

700 PRINT" £2 BONN 1 £ 5 RIGHT1L I t2=L2 
t2+L3t2-2<L2*L3*C0S(Al )) " :RETU 
RN 

701 REM * 4 : « * Jc 

702 REM * MASCHERA PER TEOREMA DEI* 

703 REM * COSENI 0 DI CARNOT E * 

704 REM * PRESENTAZIONE DEI * 

705 REM * RISULTATI * 

706 REM 

710 GOSUB 680 : PR I NT " [ DOWN I f 2 RIGHT 
] FORNI RE DUE LATI E L'ANGOLO C 
OMPRESO * 

720 PRINT" [DOWN! £3 R I GHT ] LATI s I 

) “ 

730 PR I NT " £ 4 RIGHTl 2) 

tt 

740 PRINT* IDOUJNJ [3 R IGHT JftNGOLO : 1 
) . * . * * C4 UP3" 

750 PR I NT 11 C 1 4 RIGHTJ "I 

760 GOSUB 170:L£=VAL<K$> 

770 PR I NT ,f C 1 4 RIGHTJ"; : GOSUB 170 :L 
3stfAL<X$> 

780 PR I NT * l DOU^J ] £ i 4 R IGHTJ GOSUB 
170:0 1 =VAL CX$) 

790 Ll=5QRCL£T£+L3t£-£*<L£*L3*C0S( 
A 1 *€/ 1 S 0 >>) 

800 A£=FNAS CL£*S INC fi I *4/180 >/L 1 ) * 1 
80/4 

810 A3*180-CA1+A£> 

8£0 GOSUB 680 : PR INI" E£ DOWN] [RIGHT 
I RISULTATI " : GOTO 6 

00 

830 PR INT" tCLEARJ MENO 
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Statistica 

di Mariangela Guardìone 


Quinta parte 


Nella puntata precedente sono state trattate le rappresenta- 
zioni grafiche di una serie mediante un insieme discreto di 
punti del piano, uniti per mezzo di segmenti rettilinei. Tutto dò 
equivale a passare da una rilevazione discontinua ad una 
continua, ipotizzando però die i valori intermedi tra due punti 
consecutivi appartengano atla retta che congiunge » punti 
stessi 

Poiché in statistica il problema delia descrizione continua 
dei fenomeni è mollo importante, in questa puntata verrà 
esaminato uno di questi procedimenti: l'ìnterpolazione. 

Con questo termine s'intende un qualsivoglia procedimento 
atto sia a colmare quelle le lacune di una serie statìstica, 
tracciando attraverso i dati forniti dal l'osservazione una curva 
appropriata, sia a sostituire alla spezzata ottenuta dai dati reati 
una curva assai simile nel suo andamento alla spezzata 
stessa. 

In senso tato la costruzione della spezzata è già un esempio 
dì interpolazione, in quanto la si può pensare come una suc- 
cessione dì rami di curva, intendendo con il termine curva 
anche ì segmenti di retta. Quest'ultimo tipo dì interpolazione è 
valido però sotto ipotesi restrittive, in quanto si assume implici- 
tamente che l’andamento del fenomeno sia rettilinee tra un 
punto e l'altro. 

Inoltre. ì singoli rami della spezzata si uniscono con conti- 
nuità l'uno all'altro, presentando però sempre bruschi cambia- 
menti di direzione che non sono rappresentativi della realtà 
circostante che si vuole esaminare. Per questo motivo in 
questa puntata si vuole esaminare come si possa procedere 
per eliminare questi aspetti non verificabili deila spezzata, 
sostituendo ad essa una curva più realìstica. Infatti quello che 
interessa conoscere nello sludio statistico di una serie di feno- 


meni è la loro tendenza nel manifestarsi durante l'osservazio- 
ne e la rilevazione dei dati. 

Supponiamo di avere tre punti individuati dalle rispettive 
ascisse x 1x2, sta equidistanziate e dalle ordinate y t, yi, y* St 
osserva che nel passar© da so a xa, y è aumentata, mentre nel 
passaggio da xa a xa, è diminuita e che il salto verso il basso è 
inferiore a quello precedente verso l'alto. 

Quindi, nel complesso, il fenomeno presenta una tendenza 
positiva che può essere rappresentata mediante una retta che 
forma un angolo acuto con l’asse positivo delle x; quindi sì dice 
che tra fe variabili in esame esiste una relazione lineare, come 
mostrato in figura 1 . 



Fig.l * Ecco coma viene rappmsonEaTo il Fonoftiprto di [endem / a tradii ivn 
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fn altri casi può esistere fra le variabili una relazione non 
lineare, come ad esempio è mostrato in figura 2. 


dove: 



2 - La rappresentazione grafica della relazione non lineare può apparire in 
Guesia maniera dove la resultante meda corrisponde ali insieme del valori 
rappresenteti da ponti sparsi. 


Il problema di trovare l'equazione dt una curva che interpoli i 
dati ottenuti da una serie di osservazioni sperimentali viene 
detta interpolazione 

Questa retta ha due parametri, mentre i punti considerati 
nell'esempio sono tre e quindi, escludendo il caso di perfetto 
ajlineamento, tale retta non potrà passare per lutti e tre i punii 
staisi. 

Ingenerale, pertanto, il concetto è quel lo di considerare un a 
funzione con un numero limitato di parametri, evitando la 
condizione di far passare fa curva in esame per tutti i punti noti 
e sostituendola con una condizione motto meno restrittiva; 
questo significa che, per interpolare i dati sperimentali ottenuti 
da osservazione sarà necessario scegliere tra le infinite rette 
possibili quella che presenterà il miglior grado possibile di 
aderenza al diagramma. A questo scopo sì deve introdurre 
una grandezza che misuri lo scostamento tra una qualsiasi 
retta e i punti del diagramma; la retta voluta si otterrà quindi 
minimizzando la grandezza in esame, 

Essa viene indicata con il tonnine indice di scostamento, la 
sua espressione è data da: 

i * MJiidHL 

~èFT 


V- ordinate del diagramma 
f{ x >) = ordì n ate de El ' i nterpolante 


La formn della funzione interpolante f(x-) si ottiene dall'esa- 
me del grafico, in quanto sarà proprio questo ad indicare che il 
fenomeno è rappresentabile mediante una retta, una parabo- 
la, oppure da una curva polinomiale di grado superiore. Dopo 
aver effettuato la scelta deirequazione necessaria, si avranno 
certi parametri in maniera da rendere minimo, sempre in riferi- 
mento alla particolare scelta fatta, uno degli indici di accosta- 
mento. Infatti se si suppone che la funzione f(x} sia uguale ad 
a+bx, che rappresenta l ' interpolazione lineare, \ parametri a e 
b dovranno essere determinati in maniera da rendere minima 
la relazione che esprime l'indice dì scostamento I, la cui 
espressione è stata data precedentemente. Tutto questo però 
non risulta essere sufficiente, in quanto per poter accettare la 
retta, il vafore numerico effettivo dei punto di minimo deve 
rientrare nell'intervallo empirico scello. Nel caso in cui questo 
non avvenga, si passerà alia parabola e cosi di seguito. 

Tutto questo rappresenta ri classico metodo dei minimi 
quadratici o di Legendre- Gauss. 


Metodo dei min imi quadratici 

Per meglio chiarire questo metodo statistico importa ni issi* 
mo e molto utilizzato, si considera la figura 3 in cui i punti 
ottenuti da una osservazione sperimentate sono indicati da 
(Xi.Y i} f (X*,Ya) f (XnYn). 

Per un dato valore di X, per esempio Xi, esisterà una 
differenza tra il valore di Y* ed il corrispondente vafore sulla 
curva A. 

Vt 



1 r~ 


"T * 

X 


Plg. 3 - Rappresentazione grafica ctol minimi quadratici 
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Questa differenza viene indicata con D i. che rappresenta ?a 
deviazione o Terrore e che può essere positiva, negativa o 
nulla. Nello stesso modo in corrispondenza dei valori Xi,. ,Xr» 
si otterranno le deviazioni corrispondenti 

Una misura che indica fa bontà delTinterpolazìone ottenuta 
mediante la curva in esame A è ottenuta dalla somma dei 
quadrati delle singole deviazioni* cioè: 

Dif2+D*J2+ +Dn|2, 

L' interpolazione risulta essere tanto migliore quanto più 
piccola è questa somma A questo punto si può fornire fa 
seguente definizione: fra tutte le curve interpolanti un insieme 
di punti dato, la curva fa cui somma Dq2+Daf2-h.„-l-0nf2è 
minima, viene detta migliore interpolante. 

Una curva, quindi, che presenta questa proprietà viene 
detta curva dei minimi quadrati; una retta avente questa prò 
prietà è detta retta dei minimi quadrati, una parabola sarà 
parabola dei minimi quadrati. 

Retta dei minimi quadrati 

La retta dei minimi quadrati interpolante l'insieme dei punti 
(Xi.Yi), (Xz T Ya) t ,(X*\Yn) ha la seguente equazione ■ 

Y=ao+aOC 

dove aoe a t sono costanti che si ottengono risolvendo il se- 
guente sistema di equazioni, dette equazioni normali della 
retta dei minimi quadrati: 


51 y = N 2 X 



Dal sistema precedente si ricava: 

. . (l r )(Zx‘)-(Z~)(S.*y) 

NLx-kxF 


La parabola del minimi quadrati 

La parabola dei minimi quadrati interpolante l'insieme dei 

punti (X t. Y i).(Xi,Y 2 ) Y«) viene ottenuta 

dall'equazione: 

Y=ao+aiX+ai2XT2 

Le costanti ao,a i.aa vengono ottenute risolvendo il sistema 
di equazioni: 


x y = ^ x. + -A- i x 1 +■ jc* 

^ 51 oc? y X, 1 + -a-t *Z. 2L k 


che sono chiamale equazioni normali della parabola dei mini- 
mi quadrati. 

Molto spesso, in base ai dati campionari ottenuti da una 
serie di osservazioni sperimentali, si vuole stimare il valore di 
una variabile Y che corrisponde ad un dato valore di una 
variabile X. Per ottenere questo risultato st stima il valore di Y 
utilizzando una curva ai minimi quadrati interpolante i dati 
campionari. La curva che risulta viene indicata come curva di 
regressione di Y su X. in quanto il valore di Y viene stimato 
utilizzando il valore di X. E' possibile anche il caso contrario, 
cioè viene stimato il valore di X per mezzo di un certo Y, 
scambiando semplicemente le variabili e ottenendo una curva 
di regressione di XsuY. 

In generale, bisogna osservare che la retta o curva di re- 
gressione di Y su X non è uguale a quella di X su Y, 

Un problema strettamente legato alla regressione è quello 
della correi azione che indica il grado di relazione tra le variabi- 
li. Infatti, se tutti i valori delle variabili soddisfano ad un'equa- 
zione. Si dice che tra le variabili sussiste una correlazione 
perfetta. 


Correlazione lineare 

Utilizzando i punti di coordinate fX,Y) si può costruire un 
diagramma a dispersione in cui, se tutti i punti giacciono 
ìnlorno ad una retta, la correlazione viene detta lineare. Se Y 
cresce al crescete di X. come rappresentalo in figura 4. si ha 
una correlazione positiva o diretta. 
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detta errore standard della stima di Y su X e viene data dalla 
seguente relazione: 



v* 


— * 

X 

FI 9 * 4 - La corretai&ne positiva dirotta. 

In figura 5 Invece si ha la rappresentazionedeila correlazio- 
ne negativa o inversa, in cui la Y tende a decrescere al cresce- 
re di X. 



* * j 


— > 

' X 

Rg. fi - Rapprese ntazioro gralica di un insieme di dall non correlai j 

Deviazione spiegata e residua 

La deviazione totale di Y è data come moslrato dalla formula 
7, cioè come la somma dei quadrati degli scarti dei valori di V 
dalla media y e risulta essere data dalla relazione: 

Z(y-yf= £(y-yj*l (/.-/) 


Nel caso in cui tutti i punti sembrano giacere in vicinanza dì 
una curva, si ha la correlazione non-l beare, sia positiva che. 
negativa 

Se non esiste alcuna relazione tra le variabili, si dice che 
esse seno incorretele* come mostrato tn figura 6. 

Per trattare il problema delia dispersione dei da!» campionari 
intorno a rette o curve da un punto di vista quantitativo, devono 
essere introdotte alcune misure delia correlazione. 


dove il primo termine a destra rappresenta la devianza resì- 
dua, il secondo la devianza spiegata. 

Coefficiente di correlazione 

Introdotte le grandezze precedenti, si può ora definire il 
coefficiente di correlazione la cui formula è te seguente: 


Errore standard della stima 

Se Ys rappresenta i valori di Y perdati valori di X, ottenuti da 
una retta di regressione, una misura della foro dispersione è 


£U-/r 

E(y-y)’ 
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e rappresenta radice quadrata del rapporto tra la devianza 
spiegata e quella totale. 

Net caso in cui la devianza spiegata vale zero, cioè se la 
devianza totale equivale alla spiegala, if coefficiente r è uguale 
a zero; se la devianza residua è zero e quindi la devianza 
totale è uguale alia spiegata, r risulta essere uno tn tutti gli altri 
casi, il valore di r risulta variare Ira -1 e +1, Bisogna notare che 
r è una quantità adimensionale, in quanto non dipende dall'u- 
nità di misura impiegata. 

Il caso r= + 1 rappresenta 3 a condizione tn cui esiste perfetta 
correlazione diretta tra Y e X, cioè all' aumentare di X aumenta 
con la stessa proporzione Y, poiché i punti di coordinate (X<,Y*) 
si trovano tutti sulla retta di regressione inclinata posilìvamen- 
le dì 45* Come riportalo in figura 7 


Se r=(X non esiste alcun tipo di correlazione ira le variabili 
come schematizzato in figura 9 




Se f>0, esiste una correlazione diretta, ma non più perfetta, 
tra fe variabili, in quanto i punti (X* Y>) si addensano intorno alla 
retta di regressione come in figura 8 



Ftg . 0 - Rapprese raziono g ralica <W un insiemo di dall correlali direni . m cui R è 
maggioro di «ro La cor r esazione \n ogni caso non * paletta 


-j — * 

X 

Flg. 9 * RappresefUaiione grafica Sin** alla figura precedalo .ncui Rq uguale 
a zero a quindi non esule correlazione 

Se r--1 , si ha una perfetta correlazione inversa Ira Y e X; 
questo significa che se la variabile X aumenta, la Y diminuisce 
in maniera proporzionale e i punti giacciono tutti sulla retta di 
regressione inclinata negativamente di 45 come in figura 10. 



Fl9* 10 - Come rvelie figure 0 e 10. però con R uguale a -1; $1 ha quindi una 
perfetta correlazione inversa 

Infine se r<0, esìste correlazione inversa, ma non più per* 
fetta, tra le variabili, in quanto ì punti si addensano attorno alla 
retta di regressione inclinata negativamente come rappresen- 
tato in figura 1 1 . 

Tutto ciò esprime che quanto più rè prossimo all'unità, tanto 
più il diagramma è approssimato da una retta. Infatti si ritiene 
in genere che l'ipotesi di andamento lineare sfa accettabile 
quando r vate circa Q.7i 
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Il programma 



Flg* TI - Rappresentazione grafica dr un insieme di dall In correlazione inversa 
non porietui 


A conclusione, come applicazione, si riporla il programma 
che permette di adattare un insieme di dati {X(l),Y{l}) ad una 
retta, ad una curva esponenziale o ad una curva logaritmica. 

Il programma risulta essere cosi strutturato; 
dalla linea 150 alfa 195 vi sono le istruzioni che permettono 
l'esecuzione del menu che comprende la possibilità dì scelta 
di definire il tipo di curva interpolante; 
dalla linea 225 alta 240 vi sono il dimensionamento delle 
matrici ed il caricamento dei Data; 

dalia linea 265 alfa 285 vi è la maschera di input dei valori X e 
Y: 

dalla 340 alta 440 vi sono te istruzioni che eseguono le videate 
di presentazione dei risultali: 

dalla linea 470 alla 570 viene eseguito il calcolo per una 

eventuale ulteriore interpolazione; 

dalla 595 alla 660 sì hanno le subroutines di elaborazione. 


100 
105 
ì 10 
1 15 
1 £0 
125 
130 
135 
140 
145 
150 

155 


REM ***** ***** 

REM * PROGRAMMA DI CALCOLO * 
REM I DI REGRESSIONI AD i 
REM i UN PARAMETRO * 

rem * mmm? P * * 1 li * (fPflWWt 

REM 

REM * MASCHERA MENU ' * 

rem Wmmm Ir* I *#** *-* Wmwm 

PR I NT " i CLEAR 1 £ DOWN J JCCOXXX 

PRINT" X 

y. H 


160 PRINT" Y, REGRESSIONI AD UN 

PARAMETRO 
1S5 PR 1NT N % 

X m 


i ?0 pr i nt H w &:/y:/yywyw&wyyùyx 

v:/y:/:/:/:Àv:/y:/:A n :for i = i to 1000: 
NEXTI 

175 PRINT" CE DONNI DEFINIRE I 

L TIPO DI CURVA 11 

130 PRINT," CODtUNJA) RETTA “ 5 PR INT, “ 
B> CURVA DEL TIPO A*XtB" 

1 05 FRINT,"C> CURVA ESPONENZ I ALE " : 

PRINT, "D ) CURVA LOGARITMICA" 
130 PRINT: INPUT « FATE LA SCE 

LTA <A . , . D ) “ ; SS! CH=ASC <S$) *64 
195 F R I NT 11 C E DOLIN 1 * : I NPUT " I NTROD 
URRE IL NUMERO DEI DATI "IN 
200 IF N<3 THEN PR IMT" E5 UFI"! BOTO 


E05 
£10 
2 1 5 
220 
225 

220 

835 


840 

845 

250 

255 

280 

265 

£70 

275 


280 


285 


290 

235 


195 

REM 

REM è DIMENSIONAMENTO Ejt 
REM DELLE MATRICI 'jK 

REM 

PRINT" E CLEAR 3 * : DIM MOSU) ,VE* 
< 4 ) , VA$ (4 > ,X <N) , V CN> 

POR 1=1 TO 4: READ MOSCI >,VE$<I 


; ,yas< 1 mnexti 

DATA "r*fi+B*X'V Y w , “ A 
" , "ì=A*<XtBN' , "LN< Y> " , "LN<A ) " , 


"ir=A+-EXP<B*Xp w 

DATA "LN< r ) " , "LN< A 1 " , * Y-A+BtL 

N<X)% ff Y W , B A ,r 

REM W MASCHERA INPUT " 

REM 9 VALORI X E T 

REM 

FOR 1 = 1 TO N : PR I NT " C CLEAR ] * 

P R I NT " [ 5 DOWN ] 

" ; 

PR I NT tr t 1 0 DOWN ] 

'/seme 1 1 u 

pì " 

PRINT 1 ' I DOWN 3 £2 RIGHT1 FORNIRE 
IL VALORE PER X=*JIi INPUT "CRI 
GHT] "ixn> 

PR 1 NT " E DOWN 3 1 2 RIGHI] FORNIRE 
IL VALORE PER Y^Ji: INPUT "CRI 
GHT1 YC I) ifCXTI 
REM 

REM * CH I AMATA UBROUT INES 4 
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300 REM t ELABORATONE DATI * 
305 REM * DI INPUT * 

310 REM I VMIMIMitNlPI * * * ** * Wi 

315 ON CHGOSUB 595,635,845,855 
320 REM 

325 REM * V IDEATA PRESENTA2 IONE 4 
330 REM Ì RISULTATI 

335 REM 
340 FRI NT 11 t CL E AR 3 

yyyy^y:jcc^/yyyzcyy:/^yy * % 

345 FRINT-% 


y. u j 


350 PRINT*X 




355 FR INT rt % 


360 PR INT n y* 
385 PR INT n *A 
370 PRJNT ,r K 


y. ft ; 


'A*ì 


v » ■ 
/« / 


375 PR INT"/i 




X 1 


380 PR INT "X 

X”J 

385 FRI NT 11 V, 

?.*; 

390 PR INT "X 

'A") 

395 PRINT*X 

Y."ì 

406 PRINT"» 

V*ì 

405 PRINT"» 

%%■ 

4 1 0 PR I NT B I R I GHT 3 L 1 2 UP] M 

ODElLOs n ;MO$(CH) 

415 PR INT" [DOWN] [R IGHT ] STIMA DI A 
* ,f ;A 

420 PR INT" [R IGHT3 STIMA DI B = VB 
425 PRINT" LR IGHT] VARIANZA DI*/VE$ 
CCH); "=";SS 

430 PR INT" CUPI CR IGHT3 VARIANZA DI" 

; va$<ch >; " = H ; sa 

435 PR INT*' [RI GHTJ VARIANZA DI B 
**;SB 

440 PR INTU IR IGHTI COVARIANZA DI";V 
A$<CH>;"t2 LEFT] r B~ " J AB 

445 pr i nt H >yyyyy^ykyyyyyyyyyyy: -yyy 

yyyyyyyy&yyyy:/:/* « 

450 REM \ *%*%*%%%%%*%%%% 


455 REM * CALCOLO PER ULTERIORE* 
460 REM * INTERPOLAZIONE i 

465 REM JwWPWPBWCTwffWpNI 
470 INPUT " [R IGHT] CALCOLO 01 INTE 
RPOLAZ IONE (S/N) f " i A$ 

475 IF A*="N" THEN PR INT 11 [OLEARI ” : 
END 

480 INPUT ■ [RIGATI INTERPOLAZIONE 
PER X 0 Y n ;A$ 

485 IF A*s"Y" THEN 530 

490 PRINT: INPUT "IRIGHTI X=*;X 

495 ON CHGOTO 500,505,510,515 

500 Y=A+B*X:GOTO 5£0 

505 Y=A*XtB:GOTO 5£0 

510 Y=A*EXP(B*X) ! GOTO 5£0 

515 Y=A+B*LOG<X) 

520 PRINT" [R IGHT] Y = ” f Y 
5£5 GOTO 565 

530 PRINT: INPUT "IR IGHT] Y = V r 
535 ON CHGOTO 540,545,550,555 
540 X = < Y-A >/B sGOTO 560 
545 X= ( Y/A ) t ^ 1/B ) : GOTO 560 
550 X-LOG (Y/A )/B: GOTO 560 
555 X=EXPC (Y-A)/B) 

560 PRINT" IR IGHT] X = ",’X 
5G5 GET S*:1F S*= I,B THEN 565 
570 GOTO 340 
575 REM 
580 REM 
565 REM 
590 REM 
595 XM=0 : YM=0 
600 XY=0:X£=0 
605 SS=0 

610 POR 1=1 TO N:XM=XM+X(I>:YM=YM+ 
Y < I ) JNEXTI :XM=XM/N:YM=YM/N 
G 15 FOR 1 = 1 TO N:X£=X£+<XU)-XMJt£ 
:XY=XY+<X< I >-XM)*Y( I ) :NEXT1 
680 B=XY/X2 ! A=YM-B*XM 
6£5 FOR 1=1 TO N:SS=SS+(Y< 1 )-A-B#X 
( 1 > ) t2 : NEXTI : SS=SS/(N-£ ) 

630 SA =SS * ( < 1 /N > *■ ( XM*XM/X£ > ) : SB =SS 
/X£ : AB=-SS*XM/X2 : RETURN 
635 FOR 1=1 TO Ni X< I )=LOG(X< I ) ) : Y< 
I > =LOG < Y< I > J : NEXTI 
640 GOSUB 595 : A =£XP < A ) : RETURN 
645 FOR 1 = 1 TO NtY< I ) “LOG( Y( I > ) : NE 
XT1 

S50 GOSUB 595 : A=EXP (A) : RETURN 
655 FOR 1=1 TO NìX< I )=LOG(X< I ) ) sNE 
XTI 

660 GOSUB 595: RETURN 
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I caratteri del Commodore 64 
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Quante volte gli utilizzatori del Commodore 64 si saranno, 
' ‘tirati gli occhi" sul video per capire bene come fosse fa 
rappresentazione grafica di un determinato carattere? Penso 
parecchie. 

Il programma che verrà qui di seguito proposto è nato dalla 
necessità di "vederci chiaro* 1 una volta per tutte su questo 
punto, onde poter fornire ai lettori di Commodore un elenco 
graficamente inequivocabile soprattutto per quanto concerne * 
caratteri grafici, in quest'ultimo set, infatti, risultano esserci 
ben sei caratteri uguali due a due, defini bili cioè non tramite un 
solo tasto ma da una coppia di essi; non esistono, perciò, 
caratteri tipo "linea quasi centrale ' nome dichiarato su alcuni 
testi comunemente in commercio. Questi caratteri sono con- 
trassegnati dal programma tramite un asterisco seguito dal 
numero di riferimento coppia; va precisato inoltre che i caratte- 
ri re verse seguono identicamente la sequenza di quelli 
normali. 

Sapendo che la ROM caratteri è accessibile in lettura dall'u- 
tente, fa decisione di arrivare a trarvi direttamente te informa- 
zioni riguardanti la costituzione di ciascun carattere è matura- 
ta a seguito delle due constatazioni seguenti: 
a - difficoltà di reperimento di documentazione sufficiente- 
mente precisa al riguardo; 

b - considerando il carattere normale geometricamente com- 
plementare del reverse e che ogni carattere è realizzato in 
matrice fl p B avrei dovuto, per ogni coppia normale/re verse. 


disegnare su una grìglia 64 sferette corrispondenti ai pìxels 
accesi per un totale di ben 8192 sferette relativamente al set 
completo di 128 caratteri: lavoro immane e disumano, 

A quale allocazione dì memoria inizia la ROM di caratteri e in 
quale forma sono i memorizzati questi ultimi? 

La locazione dì inìzio é la 53248 e i caratteri sono memoriz- 
zati, riga per riga su otto bytes numerati da zero a sette, sotto 
forma di numero decimale; ad esempio il carattere A è così 
j formato; 

Essendo la A il secondo carattere neU'ordinamento della 
ROM caratteri, il valore (24) della prima riga (byte 0) è memo- 
rizzato in 53256. quello (60) della seconda (byte 1 ) in 53257 e 
così via. 

L'ordinamento dianzi citato nella ROM dei caratteri è legato 
dal codice POKE assegnato ad ogni carattere; tale ordina- 
mento è presentato nel manuale che accompagna 11 C 64 nelle 
pagine dalla 132 alla 134 e l'algoritmo utilizzato per "prelevar- 
lo 1 ' onde poterlo utilizzare è: 

C = P EE K(53248 +(COOICE POKE)*8+(NUMERO BYTE)) 
che ritoma in C i valori decimali dì ogni singolo byte. 

La corrispondenza fra i ! valore ottenuto per ogni byte e la 
presentazione video di quest'ultimo risulta biunivoca e legata 
dalla rappresentazione binaria del valore stesso. Consideria- 
mo ad esempio il primo byte (byteO) della A: il valore decimale 
trovato con l'algoritmo sopra indicato è 24 e la sua rappresen- 
tazione binaria, su otto bit, è: 0001 1000. 
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L'ESSENZIALE PER IA GRAFICA 
CON COMMODORE 64 




VIDEODIGITIZER 

Stampate a colori le Immagini riprese con la telecamera! 

Con il vìdeodigitìzerCó4 qualsiasi segnale vìdeo può 
essere digitalizzato con il COMMODORE 64, 

memorizzato, colorato e stampato. 

Può essere ulteriormente elaborato tramite 
la KoalaPad per ottenere effetti particolari. 
Tutto ciò che serve è una telecamera b/n o 
colore, oppure un videoregistratore (purché 
con fermo immagine), un monitore (a colori 
preferìbilmente), una stampante e con il 
VIDEODIGITIZER il gioco è fato! 

Prezzo al pubblico consigliato Lire 420.000 
IVA compresa. 





KOALA PAD 
KOALA LIGHT PEN 

Disegnate facilmente a colori 
e a mano libera con la 
tavoletta grafica Koala ò 
direttamente sullo schermo con la penna 
ottica Koala. 

Il potente software Vi offre inoltre una scelta di 
primitive grafiche quali cerchi, rettangoli e una 
serie dì effetti speciali: effetto speculare, 
radiale ed altri ancora. Prezzo ol pubblico 
consigliato 

Koala Pad 
Lire 235.000 


Koala Ught Pen 
Lire 265.000 IVA compresa 

TURBOPRINT GT 

L'interfaccia parallela Centronics per 
collegare qualsiasi periferica al C64. 

La TURBOPRINT consente il passaggio 
totale della grafica del COMMODORE 
ed è disponibile in tre versioni: 

TURBOPRINT C solo testo 

TURBOPRINT GC testo + grafica 

TURBOPRINT GTC testo + possibilità di co! legare buffer 

da 1 ó o 32K 


Prezzi al pubblico a partire da Lire 1 42.000 IVA compresa. 


iMTrntMATtOhJAl. #- ( 


COMPUTER GRAPHICS DIVISION 
MILANO: Via L. do Vinci, 43 - 20090 Trezzcmo S/N 
Tel. 02/4455741/2/3/4/5 -T!x:TELINTI 312827 
ROMA: Via Sobria. 1319 - 00138 Roma 



A questo punto è di immediata constatazione che la corri- 
spondenza cercata risulta essere; pixel spenlo per valore del 
bit uguale a zero e pixel acceso per valore del bit uguale a uno. 

Modificando quindi Eeggermente l'algoritmo di trasformazio- 
ne da numero decimale in binario, in quanlo nel nostro case 
non Interessa avere il numero in sè t ma una serie di spazi (in 
relazione al valore zero del bit, pixel spento) e di sferette {ir 
relazione al valore uno del bit, pixel acceso), otteniamo il 
risultato ottenuto cioè la possibilità dì ingrandire ogni singolo 
pixel alle dimensioni di un carattere noimale portando quindi 
quelle dell'intero carattere a 8' 8 caratteri video. 

Da notare che il set di caratteri considerato è quello video 
più usato (serie POKE ni) e che differisce leggermente da 
quelli ottenìbili con le varie stampanti. Altri punti importanti da 
rimarcare sono; 

L'uso del l'istruzione in 250 e in 264 che abilitano/disabilitano 
n/0 e spostano il puntatore sui banchi dì memoria, necessarie 
per un corretto funzionamento della routine dì lettura nella 
ROM: 

l'uso della PRtNT§6.CHR$(l8) sulla linea 272 e PRINT- 
§6,CHR$(36) sulla linea 306 che elimina/attiva l'interspazio 
fra le righe sulla stampante Commodore MPS8G2 che andrà 
eventualmente variata per modelli differenti. 

I lettori che non posseggono stampante possono omettere i 
contenuti delle lìnee seguenti: 

1 16: 1 18; dalla 124 alla 136: C$=E$ sulla 144; dalla 170 alia 
202: FA=0 sulla 234; dalla 236 alla 238: dalla 272 alia 288: la 
306 e cambiare sulla 310 GOTO 130 in GOTO 144. 

Vediamo ora più in dettaglio la struttura del programma: 

Dalla linea 1 16 alla 122 sono allocate assegnazioni siringa 
e dimensionamento vettore. 

Dalla 139 alla 136 si trova il test di abilitazione alla stampa e 
u ^ . 


l'istruzione per la stampa dell'intestazione 

Alfa 144 sono allocale un'assegnazione stringa per la stam- 
pa, l'assegnazione del valore POKE di inizio e un'assegnazio- 
ne stringa. 

Dalla 154 alla 163 si trovano il richiamo della subrouline di 
elaborazione dati e le istruzioni per la videata di presentazione 
degli stessi. 

Dalla 178 alla 202 un ulteriore test di stampa e la eventuale 
relativa routine. 

Dalla 210 alla 214 è allocato il test per la continuazione. 

Alla 224 si trova la chiusura del ciclo FGR-NEXT e il test di 
eventuale fine esecuzione. 

Alla 234 sono allocate l'assegnazione POKE per i caratteri 
in reverse, un segnalatore perla stampa, l'assegnazione per il 
controllo stampa ed una assegnazione stringa. 

Dalla 236 alla 238 si trovano un ulteriore test di stampa e 
un'assegnazione stringa relativa. 

Atta 240 si trova il rinvio alla ripetizione del ciclo POR— 
NEXT. 

Dalla 250 alla 264 è allocata la subroutine di lettura nella 
ROM caratteri e di elaborazione dati. 

Dalla 272 alia 288 si trovano le subroutines per la stampa 
delle intestazioni 

Dalla 290 atta 294 è allocata la subroutine del titolo video. 

Dalla 302 alla 310 sì trovano te roulines di eventuale ripeti- 
zione dell'intera esecuzione e alcune Istruzioni di reset per la 
stampante seguite dal relativo rinvio alia finea di Inìzio. 

Dalla 318 alfa 572 si trovano i DATA relativi atte voci "tasti 
utilizzati' 1 e "denominazione"; da notare che per alcuni carat- 
teri (non leggibili con l'istruzione DATA) si è fatto ricorso alla 
subrouline con inizio alla linea 574, 


100 
Ì0£ 
104 
106 
106 
1 10 
1 12 
1 14 
1 1 E 

1 18 

ì £0 
122 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

G$- 


***,$ * ** **** * 

! CARATTERI DEL CG4 * 

* DI * 

t MAURO MASSETTI 

* *.* **•* * *********** *** ** * 
*AS5EGNAZ IONI STRINGA E 
4 DIMENSIONAMENTO MATR. 
i * * * * * * *********** Ww ** * 

I CARATTERI 

E CODICI DEL C64 |" 

E*« ■ I C ARATTE 

RI IN NORMALE | n 

B*=* -SDIM AStl0> 

Ai<l>=“ •*A*<10>=* — 


M 


124 REM * * *+4 *»■** + ***+.* + *++* 

1 SE REM * TEST DI STAMPA * 

1SE REM ************************* 

130 F L = 0 : F fV=5f: GQSUB ' 290 : PR !Pll I 


STAMPARE QUANTO V ISUAL IZ2ATO < 

S/N>? * 

132 GET Si ì IF S$=" " THEN 132 
134 IF SiO’S" THEN FL=1:GOTO 144 
136 CÌ=Gti GOSUB 272 
138 REM 4*** *M *4j* f ** * * &*■* *& 

140 REM * ASSEGNAZIONI * 

142 REM #***'i****-* «i»**'********»'* 
144 Ci=E*sCA=0:F*=" CARATTERI IN (40 
RMALE “ 

146 REM **+.***************.******* 
148 REM * IMI Z IO CICLO CARATTERI k 
150 REM *E LORD VISUALIZZAZIONE * 

152 REM 

154 FOR CP=CA TO CA+ 127 (GOSUB 280 ( 
READ TÌ,0Ì,CH 

156 PRINTFii GOSUB 574: IF CPMé.7 TH 
EM T*=MRVS>"+TÌ 

158 PR INT‘‘COD I CE POKE DEL CARATTER 
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E : CP 

iee PR INTACCO IDE ASCII DEL CARETTE 
RE : ,p ;ch 

1S£ BOSUB £50 : FRI NT 
164 FGR 1=1 70 10IFRINT TABC10)fA* 
CI): MEXT I 

J6G PRINT" TASI ì UTILIZZATI : 11 ; Tì 
168 PR I NT "DE NOMINAI IGNE : u ;Dì 
ITO REM 

1" REM ir TEST DI STAFFA * 

* ” ù PEM * E ROUTIfC RELATIVA * 

i ?£ rem 

178 !F FL= I THEM £10 

130 PR imi FRI NT" STAMP I <3/H)?C£ URI 

m * 


1 8E GET SìrlF " " THEM 1S£ 

184 IF SS= W N" THEM £10 
1S6 IF FA >0 THEM 130 

133 GQ5UB £74 : GGSUB 2SS:FA=1 
190 PR INT#4 r ,r " : PR INT#4 , * 11 

19£ PR IMTH4 , a " : FOR 1=1 TO 4: PRINT 
44 ,6$+AÌ< I ) sNEXTI 

134 Pì=" 

136 L£=BÌ+A*<5)+B$+R1BHT$< *S 

TRÌ<XH) ,5 4" ' +T$tLEFT-$vP^,E 

4 -LEN<TÌ: ; fDÌ 
138 PRINT#4,LS 

£00 FGR I =S TO 1 0 ? PR 1MT#4 , E-£ *fi$ ■: I > 
sNEMTI 

£0£ PP1NTH4 , " lf fPRIMTlH, " “ 


£04 
EOE 
£03 
£10 
£ 18 
£ 14 
£ 16 
£13 
£50 
EE£ 


REM 

REM 

REM 


ÉÉÉÉÉÉÉÉÉÉÉÉÌ 


TEST DI CONTINUA? IGNE 4 

PRIMI: FRI NT COMI IMJ li S, N> ? 1 
GET Sì: IF 3$^" THEN £1£ 

IF S$=*N* THEM 30 £ 

REM 4: 4, 1.1 *.* 4* 4.4 J 

~:EM * CHIUSURA CICLO CARATI , 
REM 4 E TEST DI FINE f. 

REM fflffWfWfWfT 


£24 ME X TCP l IF CF >£55 1HEN 302 
££B REM 

££S rr r * ASSEGNAI 10N1/RIPET1Z , * 

2 30 REM ♦ CON CARATTERI REVERSE ■* 

£3£ REM 

£34 CA = 1 £S : FA =0: Fì = “CARATTERI IN R 


EVERSE 11 GESTORE 
236 IF FL=1 THEN £40 
£38 Cì= M | CARATTE 

Rì IN REVERSE 1“ 

£40 GOTO 154 

£4£ REM ******** *********' ******* 


£44 REM 4 SUBRDUTINE LETTURA 
£4S REM i CARATTERI NELLA ROM 

243 REM 

£50 PCKE 56334, PEEK <56334 > AMD £54 
ePOKE t,PEEK(l> AND 251 
252 FOR J=6 TO 7 * C-PEEK C53E48*CP*B 
+J):AÌCJ+£)= HB 

254 R I = I NT C C '£ ) :FE=C-R 1 *£ : OR I 
£56 IF RE= 1 THEN Aì< J + 2 ) = * **' +AÌ C J + 
£ > : GOTO £60 

£58 AÌC J +2 > = " " +AÌ ( J +2 > 

260 IF CO0 THEN 254 
262 A$ ( J+2 > = n +R IGHTÌC " 

ASU+E) .8> + ,, l "SNEXTJ 
264 POKE 1 ,PEEK < 1 ) OR 4:P0KE SB334 
,PEEK C 56334 ) OR 1 : RETURN 

£6G REM ^*^gÉ^*ÉÉIÉ^ÉÌtÌÉÉ^ 
268 REM * SUBROUTINES TESTATE * 

£70 REM * *■ t t 

£7£ OPEN 6 , 4 , 6 : PR 1 NTH6 , CHR $ U 8 ) : CL 
OSE 6 : OPEN 4,4 

£74 PR f NT#4 ,BS+ " ^ — — — 


276 PRINT#4,B$+ " | 


273 PRINT#4,B*+C* 
£30 PRIMTM ,B$-t “ | 

l" 

232 PRJNTW4 ,B*+ ” L 


£84 PRIMT#4,“ ” : PR INTH4 r n "SPRINT# 
4/ "1PRINT#4,‘ " : RETURN 
286 PR INT#4 ,Bi+ " SIMBOLO 

ASCII TASTI UTILIZZATI 
DENOMINAZIONE" 

£80 PR1NT#4," *SPRlNT#4, RETURN 

£30 PRINT" [CLEAR]’ 1 SPRINT SPRINT" ~ 


£92 PRINT" l CARATTERI E CODI 

CI DEL C64 |" 

294 PRINT" V 

SPRINT: RETURN 

236 REM **+#«+* + ^***********»*j i 
£98 REM iTEST R IPET1Z IONE/F INE * 

300 REM 

3B2 GOSUB 230 s PR INT" VUO I RIPETEREI 
S/N)^ n 
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30* 

SET s 

f: IF £4="" THEN 304 

40* 

DATA 

+ .-PER ,43 

308 

IF FL 

=0 THEN CLOSE 4:0FEN t,4. 

*06 

DATA 

4* , V I R60LA ,44 


S r °R 1NTH^> ,CHR$ \3S > i CL2SE S 

40S 

DATA 

-, MENO, 4 5 

30B 

1F £$ 

O'B* THEN FRiNT* [CLEftft ì p 

410 

DATA 

, , PUNTO ,46 


! END 


4 ì E 

DATA 

, , FRATTO 0 DIVI SD, 47 

310 

RESTGRE f GOTO 130 

* i* 

DATA 

0 , - - ,48 

313 

RE M 1 t * 1 4 > * < 4 £ # 4, 4 4 » 4 3*. + * * * > l * 4 

* 10 

DATA 

l,-.-,43 

ZIA 

REM *:DìRT 1 RELATIVI AI CARAT,* 

3 18 

data 

2,-. -,50 

316 

REM i 4 4 4 V * * Ut-** ** ** * \. t * * 4 * 4 4 * 4 

420 

DATA 

3 f %-, 51 

? 1 S 

DATA 

£ .-CHIOCCIOLINA ,6* 

4 £2 

DATA 


330 

DATA 

fì f " i " / 65 

424 

DATA 

- - cr- 

- * * , J w 

323 

DATA 

e, -. -,gs 

426 

DATA 

6 , - . “ , 54 

32* 

DATA 

c,-.-,e? 

426 

DATA 

7, -.*,55 

32E 

data 

D,-. -,63 

430 

DATA 

c , — * — , v£ 

323 

DATA 

E ,-.-,63 

432 

DATA 

0,‘i “ , 5 / 

330 

DATA 

F , - . - ,70 

434 

DATA 

58, DUE PUNTI, 58 

33E 

DATA 

6 , - . 7 I 

438 

DATA 

59 /F UNTO C VIRGOLA, 59 

324 

DATA 

H, - . - ,72 

438 

DATA 

< .MINORE, 60 

236 

DATA 

I ,-.-,73 

440 

DATA 

■= , USUALE ,61 

338 

DATA 

J,-.-,74 

442 

DATA 

>, MAGGI ORE, 62 

3*e 

DATA 

K , - . - ,75 

444 

DATA 

PUNTO DI DOMALA, 6 3 

2*0 

DATA 

L,-,-,7S 

446 

DATA 

(SHIFT) $ ,L IMEfl OR 12 . MED 

3*4 

DATA 

M, - . - ,77 


I ANA * 

1 ,9£ 

210 

DATA 

N,-.-,7S 

*43 

DATA 

i3HlFT)fi,3EME FI OCHE, 37 

34F 

DATA 

0 , - . - , 73 

45D 

data 

CSH IFT)B, LINEA VERT* MED 

330 

DATA 

F' , - . - , 80 


IANA * 

d , 9l^ 

352 

DATA 

0 ,S 1 

452 

DATA 

<SHIFT)C, LINEA CRI2- NED 

351 

DATA 

R , , 38 


I AMA #1,33 

35S 

DATA 

*>&, — * — ,33 

454 

DATA 

( SH !FT>D ,L MEA 0F.12, 3-4 

258 

DATA 

T . - . - ,34 


S, 10O 

3SC 

DATA 

U,-, -,S5 

456 

DATA 

iSHIFTJE ,LII'Efl CRIZ. 2-3 

362 

LATA 

V , - . - ,8S 


/S, IDI 


30* 

0 RTF 

U, - , - ,87 

458 

DATA 

iSHIFT.'F, LINEA OR 12. 5-6 

300 

DATA 

x,-.-,sa 


/3, 102 

3ES 

DATA 

83 

460 

DATA 

ISHIFTjG, LINEA VERT, 3-4 

370 

DATA 

Z,-.-,90 


/8 , 1 03 


372 

DATA 

87 ,iiFEr- ~A QUADRA ,31 

462 

DATA 

vbHIFT :H .LIf-Eri VERT. r 6 

w » *i 

DATA 

£., c OLIE £TERLIIft;,32 


/S, 10* 


w t L 

DATA 

23, CHIUSA G'JADF.A,33 

464 

OATA 

CSHIFT ) I ,SETT. CIRO, 3AS 

278 

DATA 

t , ELEVATO A , 34 


SO SIN 

1. , 105 

380 

DATA 

35 

46S 

DATA 

SHIFT ■J.SETT. CIRO, ALT 

338 

D^TA 

1 PflC E , SPAZIOSE 


0 DEE , 

, ice 

30* 

DATA 

1 , PUNTO ESCLAMATIVO ,33 

463 

DATA 

.SHIFT'K.SETT. circ. alt 

3 SS 

DATA 

34 ,PF IC 1 ,34 


Q SIN. 

, 107 

333 

data 

H .CAtCELLETTQ ,35 

170 

DATA 

(SHIFT.'L, SPIGOLO BASS S 

330 

DA^fì 

$, DOLLARO, 36 


IN, ,108 

39 E 

DATA 

\ , PE PCEHTO , 37 

472 

PftTfi 

CSHIFT.'H, DIAGONALE S1N1S 

39* 

data 

£,E GOMME ft£ Ìrìt,E,3£ 


TRA , 109 

238 

DATA 

, AOC E11TC C Al ICE, 33 

474 

DATA 

cSHJFTI-N, DI AGONALE DESTE 

7 

data 

‘,-"ERTA TOI EA , 40 


fi, 110 


*30 

DATA 

' , CHIUSA TOSCA, il 

476 

DATA 

EH IFT }0 , SF IOGLO ALTO 31 

*0? 

z atb 

*,FEP,42 


N. ,111 
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478 DATA (SHIFTIP, SPIGOLO ALTO DE 
S. ,1 i£ 

430 DATA (SH1FTIQ, CERCHIO PIENO, i 
13 

48£ DATA (SH IFTIR ,LIKEA ORIZ. 6-7 
/B,l 14 

484 DATA (SH IFTIS ,SEPE CUORI, 1 15 
486 DATA (SH IFT)T,L INEA VERT , 2-3 
/8, 1 16 

488 DATA (SH IFTIU ,SETT . CIRC. BAS 
SO PES. , 1 17, 

490 DATA (SHIFT)V, CROCE S. ANDREA 
,113 

492 DATA (SHIFT)k, CERCHIO VUOTO, 1 

19 

494 DATA <SH IFTIX ,SEME FIOR 1,120 
496 DATA (SHIFTIY, LINEA VERT. 6-7 
/8 , 1 £ 1 

498 DATA <SH IFT)Z ,SEME QUADRI, 122 
500 DATA (SHIFTI+, CROCE, 123 
502 DATA (CQMI- ,SEMI 6R1QLIA SIN. 
, 124 

504 DATA (SHIFT) -,LIFEA VERT. t*ED 
IANA «2,125 

506 DATA (SH IFT) t ,P I GRECO, 126 
508 DATA (COMI*, CARATTERE DI AG. D 
ES. , 127 


532 

534 

536 

538 

540 

542 

544 

546 

548 

550 

552 

554 

556 

558 

560 

562 


DATA (COMMI ,T DESTRO, 171 
DATA <COM)D, QUARTO BASSO DEST 
RO, 172 

DATA (COM)Z, RETTO ALTO DESTRO 
, 173 

DATA <CCM>S, RETTO BASSO FINIS 
TRO ,174 

DATA (COM)P ,LIhCA ORIZ. 7-8/8 
,175 

DATA (COM)A, RETTO BASSD DESTR 
0,176 

DATA (COM)E,T ROVESCIO, 177 
DATA (COM)R ,T DIRITTO, 178 
DATA (COMI W,T SINISTRO, 178 
DATA (COMIH ,L INEA VERT. 1-2/8 
,180 

DATA (COM)J, CARATTERE 3/8 SIN 
. , 181 

DATA (COMIL, CARATTERE 3/8 DES 
. , 182 

DATA (CQMIY, LINEA ORIZ. 1-2/8 
,183 

DATA (COMIU, CARATTERE 3/8 ALT 
0,184 

OATA CCOMIO, CARATTERE 3/3 BAS 
SO, 185 

DATA (SHIFTIS, SPIGOLO BASSO D 
ESTRO, 136 


510 DATA CARATTERE VUOTO ,SPAZ IO , ! 
60 

512 OATA (COM)K , SEMI CARATTERE SI 
N. ,161 

514 DATA (COM> I ,SEMI CARATTERE BA 
SSO, 162 

516 DATA (COM)T, LINEA SOTTILE ALT 
A, 163 

518 DATA (COMIG, LINEA SOTTILE BAS 
SA, 164 

520 DATA (COMIG, LINEA VERT. 1-2/8 
, 165 

522 DATA (COMI + ,GR IGL I A INTERA, 16 
6 

524 DATA (COMIM, LINEA VERT. 7-8/8 
*3,167 

526 DATA (COM)£,SEMI GRIGLIA INFE 
RIORE, 163 

528 DATA (SH IFT) £ CARATTERE DIAG. 
SIN. , 16 

530 DATA (COMIN, LINEA VERT. 7-8/8 
*3,170 


564 DATA (COM)F , QUARTO BASSO SINI 
STR0,187 

566 DATA (COMIC , QUARTO ALTO DESTR 
0,188 

568 DATA (COMIX, RETTO ALTO SINIST 
RO, 183 

570 DATA (COMIV, QUARTO ALTO S3NIS 
TRO, 190 


572 DATA (COM)B ,DOPP IO QUARTO, 131 


574 

IF 

c 

co 

E 

II 

« 

THEN 

T$=CHR$(34 I ;G0 


TO 

586 



576 

IF 

T$= "27 " 

THEN 

T*=CHR*<91 I JGO 


TO 

586 



578 

IF 

T$= "29 * 

THEN 

T*=CHR*<33) :G0 


TO 

586 



580 

IF 

c 

T*= "44" 

THEN 

T*= " , " i GOTO 53 

582 

p 

IF 

6 

T$= "58 " 

THEN 

T$="s ■ sGOTO 53 

584 

IF 

T£="59“ 

THEN 

T*="; • 


586 RETURN 
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\ 


CfìRfìTTER 3 IN 

NORMALE 




1 






0000 

88 00 

00 «ss 
• 8 «»• 
00 

«« 0 

0080 


7S«TT 

80 080 
80 08 
■ 0 00 
0008 


80 08 
000 88 
000000 
000000 
00 000 
00 00 
80 00 


00 00 
00 00 
80 00 
00 00 
00 00 
00 00 
0088 


fi 

0 0 
00 

00000 

00 

08 0 
008008 


00 

08 

00 

00 

80 

0 0 

00 







08 

0880 

00 00 
000000 
00 80 
• 0 •• 

00 00 


00 08 

00 00 

01 00 

000800 
00 00 

00 80 

08 09 


0000 
«0 0# 

00 00 

8 0 00 

80 00 
• 0 00 
0000 


08 08 
00 00 
00 00 
00 80 
00 00 
0080 

08 


0000 

#0 

00 

00 

00 

00 

0000 


.. 1 

®i 1 

«« 

00 

08 

li 

00 1 







80000 

00 00 
00 00 
00000 

00 00 
00 00 
0080# 


0 088 

08 

OS 

80 

00 

00 

0000 


0000 0 

00 00 
08 08 
08000 

88 

00 

00 


00 80 
00 00 
00 00 
00 0 00 
0000000 
000 000 
00 00 


00 

•8 
(D © 

08 

00 


00 

80 

00 


0000 

00 00 

80 


0000 

00 

00 

00 


00 

e© 

00 80 
0000 


•s.r 


•080 


00 0 0 

0 8 00 


08 00 

00 00 


0000 

00 00 


00 

08 00 


0000 

0001 


00 0# 

000 


08 00 









888800 

80 


08 

00 

00 

0088 

00 


00 

08 

00 

00 

880000 


08 

000000 




000000 

80 

00 


88 

0000 


80 

00 


00 

00 00 


00 

0000 


000000 


80 



90 


08 

00 


00000 

00 


00 

0000 

00 

00 


00000 

00 


800000 


00 80 


000000 


0000 

©0 


000 000 


00 


80 

00 


0888000 


00 


OO 

22®* 


«0 0 08 


00 


00 

00 


00 88 


QQ 


OD 

08 


88 00 


00 


80 

80 


00 00 


00 


8800 


08 

00 

00 

• • 

00 

00 
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CARATTERI IN REVERSE 






© mm 

• mm 

limili 





•fi 

mm 

• #* 

mmm 

mmm 

osa 

888 

888 

999 

mmm 

mm 

mm 

mmmmmmmm 


• • 

S •• .8 

■ mmmmm 
• mmmmm 

fi OBÉSO 



ate 


mmmm 

«•M 

flflaa 



m 

ili 

fi 

• mm 

9 

mm m 

O 

mm • 

m 

s» » 

m 

• »» 

V 
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LA CIRCONFERENZA 
E LA RAPPRESENTAZIONE 

GRAFICA 

di Mauro Massetti 



In questo articolo si vuole esaminare una delle curve più usate 
in analìtica: 
la circonferenza. 

Se si definisce sul piano una curva mediante una legge 
data, ad essa si potrà sempre associare un'equazione in due 
variabili che risulta soddisfatta dalle coordinate di tutti e soli i 
punti della curva. 

Si chiama circonferenza il luogo geometrico dei punti del 
piano equidistanti da un punto fisso detto centro. Si deduce 
quindi che la circonferenza viene individuata univocamente 
dal centro e dal raggio. Se si fissa nel piano un sistema di assi 


cartesiani ortogonali Oxy per determinare Tequ azione del cir- 
colo T di centro Q(xO,yO) e raggio r, si osserva che un punto 
P(x,y) apparterrà a T solo se la sua distanza dal centro C è 
uguale al raggio, cioè quando si è verificata la relazione: 

{PC)|2=rt2 

Vediamo ora come in geometria analìtica sì può rappresen- 
tare il segmento PC. Per far questo si utilizza la formula che 
calcola la distanza tra due punti individuati dalle rispettive 
coordinate. 
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Eseguendo 
questo si ottiene: 


Per far questo si considera l'equazione 
delia circonferenza 



)) rT2=(PCtf2= 

(K-xO)T2+(y-yO)T2 


Questa formula rappresent 
l'equazione cartesiana 



del circolo T. 

Mei caso particolare 
in cui il centro 
si trovi neirorigine 
degli assi cartesiani, 
cioè C{0,0) 


l'equazione del circonferenza si riduce a: 


r|2— xj2~PyT 2 


x|2+y+2 ax+by+g=0 (1) 

ricordando che 
-2x0 “a 
-2yQ— 

g=xOT2+yOf2-rf2 

Quindi 

g = (a 1 2)/4 +(b f 2J/4- r [2 
g +rf2— (af 2)/4+(bf 2V4 



Si riscrive l'equazione della circonferenza nella seguente 
forma: 


xt2+yT2+ax+by+g+{aT2y4+(bt2J/4= 

(a|2)/4+(b|2}/4 


Se poi si sviluppa l'equazione cartesiana si ottiene: 


da cui raccogliendo si ottiene: 


x 1 2 +x0 1 2-2xx0 +y } 2 + yQ f 2-2yy 0-r f 2 = D 
e ponendo : 

a=-2xQ 

b=-2y0 

X0l2+y0f-rl2=g 
si ha: 

xlS-^y^+ax+by-hg^O 

Ciò rappresenta l'equazione generale della circonferenza. 

Se si esamina attentamente r equazione innanzi scritta si 
osserva che: 

* il primo membro è un polinomio di secondo grado nelle 
variabili x e y: 

* che i coefficienti di x |2 e y 1 2 hanno coefficiente uguale a 1 : 
in caso contrario bisogna dividere tutti gli altri termini per ì 
coefficienti delle xf 2 e y |2; 

•manca il termine in xv 


(x+a/2)t2+{y+b/2)|2= 

{a/2)T2+(b/2)T2-g (2) 

Osservando quest'ultima relazione si possono distinguere 
(recasi. 

Caso A 

Se {a/2)|2+(b/2)f2-g è minore di zero 0, l'equazione (2) e 
l'equazione (1) non sono mai soddisfatte da coppie di numeri 
reali, dò perchè qualunque sìa la coppia di numeri reali che si 
sostituisce alle variabili x e y neirequazione (2), Il primo mem- 
bro di questa non risulta mai negativo, mentre il secondo lo è 
sempre per ipotesi. Da tutto ciò si ricava che non esiste alcun 
punto del piano le cui coordinate soddisfano l'equazione 
suddetta. 

CasoB 

Se (a/2)T2+(b/2)|2-g è uguale a zero, l'equazione (2) 
diventa (x+a/2) f2+(y+b/2)T2“0 e risulta soddisfatta soltan- 
to dalla coppia dì numeri x—-a/2 e y--b/2 
Quindi esiste un solo punto Q(-a/2,-b/2) del piano le cui 
coordinate soddisfano l'equazione (2) e di conseguenza an- 
che l'equazione (1). 


Quindi si può concludere che una circonferenza è descritta 
da un'equazione algebrica dì secondo grado In x e y nella 
quale manca il termine in xy e I coefficienti di x|2 e y f2 sono 
uguali. 

Ora si vuole vedere se partendo da un'equazione di secon- 
do grado, descritta precedentemente, si rappresenta sempre 
una circonferenza. 


CasoC 

Se (a/2) |2+(b/2) |2-g è maggiore di zero, ponendo: 

r=«a/2)t2+{b/2)T2^)Tl/2 

l'equazione (2} diventa: 

(x +a/2) T2+(y +b/2) |2^r 1 2 
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da cui si vede che l'equazione precedente rappresenta una 
circonferenza il cui centro ha coordinate (-a/2,-b/2) e il raggio 
èr=({a/2)|2+(b/2)t2-gHr/2. 

Dall'esame di questi tre casi si ricava che solo il caso C 
rappresenta una circonferenza le cui coordinate del centro 
sono date da: 

(-a/2 h -b/2) 

e il cui raggio è dato dalla formula 
r=((a/2) T2+(b/2) J2) j T/2 

Il programma 

Si passa ora a descrìvere come è stato sviluppato il pro- 
gramma che calcola e visualizza l'equazione della circonfe- 
renza e la rappresenta graficamente tracciandola in un siste- 
ma di assi cartesiani. 

Il programma è suddiviso in due pani. 

La prima è esclusivamente algebrica, la seconda utilizza la 
grafica ad alta risoluzione del Commodore 64. 

La parte algebrica si propone di presentare le due rappre- 
sentazioni possibili dell'equazione di una circonferenza con 
notazione matematica: in forma cartesiana ed in forma gene- 
rale. Nella seconda parie.per ragioni di velocità di esecuzione, 
si è volutamente bandito il linguaggio macchina tranne che pei 
la routine di pulitura deila pagina grafica. 

La costruzione del circonferenza in BASIC grafico risulta 
essere più lento rispetto a quello eseguito in linguaggio mac- 
china, ma senza dubbio molto più segabile per fa comprensio- 
ne delia metodologia utilizzata. Infatti questo è lo scopo princi- 
pale di un programma didattico 
E' facilmente comprensìbile che il metodo utilizzato per la 
costruzione della circonferenza consiste nel l'incrementare 
l'ascissa dal valore minimo (ottenuto sottraendo il raggio all'a- 
scissa del centro! al valore massimo (raggio più ascissa del 
centro) di un valore costante uguale ad 1. trovare le due 
ordinate corrispondenti e congiungere con un segmento le 
coppie di punti relative. 


REMarits 

Più in dettaglio, il programma proposto risulla essere cosi 
strutturato: 

- alla linea 1000 è posto il rinvio alla vìdeata principale; 

- dalla linea 1010 alla linea 1040 è allocata la subroutine di 
creazione della cornice di presentazione: 

- alla 1050 è allocata la subroutine di ripristino per la richiesta 
di dati; 

- dalla 1060 alla 1110 è allocata la subroutine di immisione 
dei dati: 

- dalla 1120 alfa 1220 è allocata la videata di presentazione in 
forma cartesiana della circonferenza e di richiesta dei dati: 

- dalla 1230 alla 1500 risiede la routine di elaborazione dei 
dati, dì presentazione della circonferenza in forma generale e 
delle eventuali intersezioni con gli assi cartesiani; 

- alla linea 1510 viene richiamata la subroutine In linguaggio 
macchina, la sola, per (Iniziai ìzzazìone e la pulitura della 
pagina grafica: 

- dalla 1550 alla 1900 sono allocate le routlnes di tracciamen- 
to dell'asse delle x t della sua graduazione, di traviamento 
dell'asse delle y e della sua graduazione: 

* dalla linea 1910 alfa linea 3070 è allocala la routine di 
creazione della circonferenza secondo la metodologia già 
esposta; 

- dalla 50070 alla 50180 è allocata la subroutine di attivazio- 
ne e pulitura della pagina grafica con i relativi DATA, 

Conclusione 

A causa della differente forma del pixel sui vari tipi di monitor 
o di televisori può accadere che la circonferenza appaia come 
un'eflisse; si dovrà perciò, in alcuni casi, inserire un coefficien- 
te di correzione di forma nelle routìnes grafiche. Questo tipo di 
intervento può essere senza dubbio una riprova di aver capito i 
concetti enunciati. 


390 REM ************************ 
991 REM *>- EQUAZIONE DELLA V* 
932 REM * C IRCONFERENZA * 

993 REM * DI MAURO MASSETTI [$* 

994 REM ************************ 

1000 GOTO t 120: REM INIZIA IL PROGR 
AMMA 

1001 REM *********************** 

1002 REM «SUBROUTIbES CREAZIONE* 

1003 REM «CORNICI I NT, /ESTERNA * 

1004 rem fmPmSfnmwRTO 

1010 PRINT" ICLEAR] " :F0R H=0 TO UFO 
R K=1024+H*960 TO 1063+H*960sP 


OKE K , 1 02 : NEXTK J NEKTH 
1020 FOR K= 1 185 TO 1222:P0KE K,102: 
NEXTK 

1030 FOR K= 1064 TO 1944 STEP 40IPOK 
E K , 102tPOKE K+39 ,1021 NEXTK : PR 
I NT* (HOME! ’ 

1040 PRINT" E00UNK5 R IGHTIEQUAZ IONE 

DELLA CIRCONFERENZA- tRETURN 

1041 REM 

1042 REM 

1043 REM 

1044 REM 

1050 PRINT" [UPHRIGHT]-i 
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; RETURN 

1051 REM 

1052 REM 

1053 REM 

1060 X$= " " s FOR 1 = 1 TO 4 : X$< I ) = " » : NE 
XTI : 1*1 SPRINT" > 

1070 GET S$s IF S$=CHR$< 1 3 ) THEN FRI 


NT: FOR J=i TO I- 1 :X$=X$+XS<J>: 
NEXTJ: RETURN 

1080 IF S*=CHR$(45) OR SS=CHR$C46) 
THEN 1100 

1090 IF S*<CHR$<48> OR S$>CHR*C57> 
THEN 1070 

1100 IF I >4 AND S$OCHR$<13) THEN 1 
070 


1110 X$ < I ) =S$ : PR I NTS$; : 1 = I + 1 : BOTO 1 



1111 
1 1 12 
1113 
1 1 14 
1 120 


070 
REM 
REM 
REM 
REM 
GOSUB 
TI 


10 10 : FOR 1 = 1 TO 1000: NEX 


1130 PRINT" [3 DOWN] 12 R IGHT1RAPPRE3 
ENTAZIONE DELLA C IRCQhFERENZA “ 
1140 PR JNT" [£ RIGHTHN FORMA CARTES 
IANAt " 

1150 PR INT" tOOUJNJ [ 7 R1GHTJ ( <X-X0) t2 
> + < <Y-Y0>t2)sRt2" 

1 1G0 PR INT” I G D0UNH2 RIGATI FORM IRE 

• Il 


1170 PR INT" [DOWN 312 R IGHT JCQQRD INAT 
E DEL CENTRO: X0 -> ";:GOSUB 1 
060:XC=VALfX$> 

1180 IF ABS<XC>>=160 THEN GOSUB 105 
0:PRINT" [2 UP]":GOTO 1170 
1 130 PRINT-I2 RIGHT] 

Y0 -> GOSUB 1060 :YC 

=VAL(X$> 

1200 IF ABS t YC ) >= 1 00 THEN GOSUB 105 
0 : PR J NT " I UP ] " : GOTO 1190 
1210 PR INT" tDOWN] 12 R IGHT1RAGGIO : 

R -> ";:GOSUB 1 

0G0:R=VALCX*> 

1220 IF R >=£00 THEN GOSUB 1050JPRIN 
T" CH UP1 " : GOTO 1210 
1230 C= INTC <XCt2+YCt£-Rt2 ) * 1 00+ . 5 )/ 
100 

1240 A = - ( INT CXC *2*1 00 +.51/100) 

1250 B=- ( INT < YC*2* 100 + . 5 >/100 > 

1260 A*=STR$(Al: IF LEFT$(A*, 1 > = " * 
THEN A*="+"+RIGHT*<AS,LEN(A*>- 
I) 

1270 B$=STR*<B) : IF LEFT$(B*, 1 >= " 

THEN Bi= " +* +R IGHT* (B$,LEN(B$> - 

n 

1280 CS=5TR$(C) : IF LEFT*<C*, 1 ) = " " 
THEN C* = " + " +R I GHT$ ( C$ , LEN ( C$ ) - 
1) 

1290 S$="Xt2+Yt2“ +A$+"X" +B*+ "Y" +C$* 
"=0" 

1300 PR I NT “ t 1 1 UP3 [£ R IGHT] E IN FOR 
MA GENERALE: " 

1310 L=36 -LEN<S$>:L*=’ ":l 

$“LEFT$(L$,L/2 1 : PR INT" [DONNI [2 
RIGHT] "+L$+S# 

1320 FOR I = I TO 8 : PRINT" IR IGHT] 
":NEXTI 

1330 D=Bt2~4*C: IF D>. 00001 THEN D=S 
QR <D> :GOTO 1360 
1340 IF D>-. 00001 THEN 1390 
1350 PRINT" [7 UP ] 12 R I GHT ] NESSUNA I 
NTERSEZ IONE CON L'ASSE Y":GOTO 
1410 

1366 Y 1 = INT < < -B-D) #50 + . 5 )/100 : Y2= IN 
T< <-B+D)*50+.5)/100 
1370 PRINT" 17 UP ] 12 RIGHT3LE INTERS 
EZ IONI CON L'ASSE Y SONO:" 

1330 PRINT" tDOWN] 14 R IGHT] Y1 = " J YI , " 
Y2 = " ; Y2 : GOTO 1410 

1330 PRINT" [7 UP ] [2 R IGHT3C IRCONFER 
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ENZA TANGENTE ALL'ASSE Y" 

1400 PR JNT" CDOUIN] [2 R IGHT] IN! 

Y1 =Y£=“ * -B/£ 

1410 REM 

1420 D=At2-4*CMF D>. 00001 THEN D-S 
QR<DXGOTO 1450 
1430 IF D>-. 00001 THEN 1480 
1440 PR INT" [DOWN] E2 RIGHT3NESSUNA ! 
NTERSE2 IONE CON L’ASSE XXGOTQ 
1500 

1450 XI = INT ( (-A-DX50 + .5 1/100 lX£= IN 
T< <-A+D>*50 + . 51/100 
14S0 PR 1 NT 11 E DOWN ] 1 2 RIGHT3LE 1NTERS 
EZIONI CON L'ASSE X SONO: 1 * 

1470 PR1NT" [DONNI 14 R 1GHT3X 1 = " \ X I , - 
X2 = ” 5 XS ì GOTO 1500 

1480 PRINT"ED0WN][2 RIGHTJC IRCONFER 
ENZA TANGENTE ALL'ASSE X" 

1490 PR I NT 11 [ DOWN ] [ £ RIGHT3 IN! 
X1*X2="J -A/2 

1500 GET S$:IF S$="" THEN 1500 

1501 REM *********************** 

1502 REM * ROUTINES Dì GRAFICA * 

1503 REM * AD ALTA RISOLUZIOISE * 

1504 REM *********************** 
1510 GOSUB 50070: REM SBIANCAV1DEO 

1541 REM *********************** 

1542 REM «ROUTINE TRACCIAMENTO * 

1543 REM * ASSI CARTESIANI * 

1544 REM *********************** 
1550 FOR X=0 TO 319 

1560 Y= 100 
1570 CH= INT <X/8 ) 

1530 RO - 1 NT < Y/8 ) 

1590 LN=Y AND 7 

1600 B 1 =B+RO*3£0+8*CH+LN 

1610 B£=7- <X AMI 7) 

1620 POKE B 1 ,PEEK <B1> OR (2+B2) 
1630 NEXT X 

1640 FOR X=0 TO 319 STEP 10 

1650 FOR Y= 10 1 TO 102 

1660 CH = I NT ( X/8 1 

1670 RO = INT < Y/8 1 

1680 LN=Y AND 7 

1890 B1=B+RO*3£0+8*CH+LN 

1700 B£=7- (X Am 7) 

1710 POKE B1 ,PEEK (61) OR <£tB£> 

1720 NEXTYsNEXTX 

1730 FOR Y=0 TO 199 

1740 X=160 

1750 CH= INT (X/8 1 

1760 RO= INT (Y/8 > 



1770 LN=Y AND 7 

1780 B 1 =B+RO*320*8*CH+LN 

1790 B£=7-<X ANO 7) 

1800 POKE Bl r PE£K(Bl ) DR <2tB£) 

1810 NEXTY 

1820 FOR Y=0 TO 199 STEP 10 

1330 X=158 

1840 CH = INT (X/8 > 

1850 RO=INT CY/8) 

1860 LN«Y AND 7 

1870 B 1 =B+RO*320+8*CH+LN 

1880 B2=7-<X AND 71 

1890 POKE B 1 ,PEEK (B 1 1 OR (2tB2) 

1900 NEXTY 

1901 REM *********************** 

1902 REM «ROUTINE TRACCIAMENTO * 

1903 REM * DELLA CIRCONFERENZA * 

1904 REM *********************** 
1910 FP=i:iF ABS<XCX 1 .6 AND ABSCYC 

XI AND R<2 THEN FP= 100! GOTO 1 
930 

1920 IF ABSCXCX16 AND ABS(YCX10 A 
ND R<£0 THEN FP=10 
1 930 XC =XC *FP + 1 53 : YC = 1 00 - YC *FP : R =R * 
FP!MI=XC-R!MA=XC+Ri Y(2)*YC! Y(3 
)=YC 

1940 FOR 1 =MI TO XC:D=SQR(Rt2-{ 1-XC 
1 1£) 

1950 CH = 1 NT < I/8XYC1 >=YC-Ds YC4)=YC + 
O: IF I<0 OR I >3 1 9 THEN £030 
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I960 FOR H= 1 TD 3 STEP £:FOR J=Y(HJ 
TO Y<H+1 ) : IF J<0 OR J>I39 THE 
N £020 

1970 RO*INT < J/8) 

1980 LN=J AND 7 

1990 B1=B+RO#320+8*CH+LN 

£000 B2=7-< I atd 7) 

2010 POKE B I ,PEEK <B 1 ) OR (8tB£) 

£020 l'£XTJ:t'EXTH 

2030 Y(£)=Y< 1 ) iY(3)=Y<4) :NEXT1 

2940 FOR I=XC TO MA:0=SQR<Rt2-< I-XC 
> t£ > i IF I<0 OR I >3 19 THEN 3030 

2950 CH « I NT C 1/8) :Y(1 >=YC-D‘.Y<4 )=YC+ 

D 

2960 FOR H = 1 TO 3 STEP 2:FOR J=YCH4- 
1) TO Y<H) s IF J<0 OR J > 199 THE 
N 30E0 


50110 OATR 173, 17, £03,9, 3£, 141 , 17,2 

08 


50120 DATA 169,0,133,251 , 169, 3£, 133 
,£5£ 

50130 DATA 160,0, 169,0, 145,351 ,£00, 
132 


50140 DATA 
,197 
50150 DATA 
1,169 

50160 DATA 
5 

50170 DATA 
0,252 

50180 DATA 


0, 208, £49, 230, 252, 1S9, 64 
25£ , 208 ,239 , 169 , 0 , 1 33 , £5 
4, 133, £5£, 160,0, 169,3, 14 
£51 ,£00, 192,0, £03, £49, £3 
169,8, 197, 253,203, £39, 96 


2970 RO= INT< J/8) 


2980 LN=J AMD 7 

2990 B1=B+RO*320+3*CH+LN 

3000 B2=7~< I Atd 7) 

3010 POKE B 1 ,PEEK (B 1 ) OR <2tB2) 

3020 NEXTJ : NEXTH: Y<2 ) =Y< 1 ) t Y< 3 > =Y( 4 

) 

3030 NEXTlsFOR I=YC TO YC+1 

3040 CH=INT<XC/8) :RO=INT< J/3) !LN=1 
AMD 7 

3050 B1=B+RO*320+8*CH+LN:B2=7-<XC A 
NO 7) 

3060 POKE B1,PEEK<B1> OR <2TBc/ 

3070 hEXTI 
3080 GOTO 3080 

50000 REM ********************** 
50010 REM *1 ! J •* 

50020 REM «ROUTINE IN L.M. PER * 
50030 REM *LA PULITURA DELLA * 
50040 REM | PAGINA GRAFICA * 

50050 REM * * 

50060 REM ** * * ***** ************* 

50070 FOR K =49 152 TO 49222: READ P:PO 
KE K,P:NEXT 

50080 PRINT" C OLEARI ‘ :B=8 192 SSYS49152 
50090 RETURN 

50100 DATA 173,24,208,9,8,141,24,208 
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di Marco De Rosa 


"Da qualche parte , in una direzione che 
si può solò chiamare ricreativa e a una 
distanza limitata soltanto dal proprio va- 
lore programmatone, il pianeta Wa-Tor 
nuota tra le stelle. 

E un pianeta a forma di toro, cioè di 
ciambella t ed è interamente coperto 
dall'acqua. Gli abitanti principali dì Wa- 
Tor sono squali e alti pesci , cosi chia- 
mati perchè queste sono ìe creature 
della Terra a cut maggiormente assomi- 
gliano. Gli squali di Wa-Tor mangiano ì 
pesci più pìccoli, di cui sembra vi sia 
sempre grande abbondanza. 

Questo semplice ecosistema potreb- 
be apparire stabile t quasi soporifico , se 
non fosse per il fatto che le popolazioni 
degli squali e degli altri pesci subiscono 
violente osculazioni Motte volte . nei 
passato , la popolazione di quesfufàmi è 
Stata quasi interamente divorata, altre 
volte gli squafi hanno sfiorato l'estinzio- 
ne | (anche quando gli altri pesci 
abbondavano )< 

Eppure, sia gli squali sia gli altri p esci 
" sopravvivono 

A.K. Dowdoney 


Wa-Tor è un classico esempio di ele- 
mento di quella classe di sistemi chia- 
mati Automi Cellulari (AC). Un AC è un 
sistema costituito da un insieme di abi- 
tanti, che può essere diviso in sottoinsie- 
mi distinti, la cui vita è determinata da un 
saldi regole. 

L'universo di un AC è solitamente rap- 
presentabile da una griglia a piastrelle 
quadrate, o nei casi più compiessi esa- 
gonali. L’esempio più famoso e sempli- 
ce, ma non per questo meno affascinan- 
te, di AC è Life, il gioco della vita inventa- 
to da John Convay (Commodore n.3 t 
pag. 50). 

In Wa-Tor la popolazione è costituita 
da due insiemi distinti: pesci e squali. Il 
tempo scorre con salti discreti che ven- 
gono chiamati Cronomi. Le regole di so- 
pra wivenza. riproduzione e movimento 
sono anch'esse separate: 

Movimento 

Pesci: si spostano casualmente in 
una delle quattro direzioni cardinali, 
sempre che la cella scelta non sia già 


occupala da un altro pesce o da uno 
squalo. Se te celle adiacenti sono tutte 
occupate il pesce non si muove. 

Squali: si spostano casualmente in 
una delle quattro direzioni cardinali, 
sempre che la cella scelta non sia già 
occupata da un altro squalo. Se le celle 
adiacenti sono tutte occupate da altri 
squali, non si muove. Il predare ha la 
priorità sul movimento, quindi vengono 
privilegiate le celle contenenti dei pesci. 

Riproduzione 

Pesci e squali: si rìproduconodopo un 
tempo prefissato, che è generalmente 
diverso per le due specie. Chiameremo 
"pprole" e “sprole'' i tempi di riprodu- 
zione in ero noni rispettivamente dei pe- 
sci e degli squali. In caso di impossibilità 
di movimento è inibita anche fa 
riproduzione. 

Sopravvivenza 

Pesci, muoiono nel caso in cui vengo- 
no mangiati da uno squalo. Altrimenti si 
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presuppone che vivano in eterno. 

Squali: muoiono quando non riescono 
a mangiare un pesce per un tempo su- 
periore ad un certo numero dì cranoni, 
che chiameremo "ninedia". 

Appare chiaro a questo punio che so- 
no cinque i parametri da scegliere per 
caratterizzare uno degli infiniti ecosiste- 
mi possibili; 

npesci; numero iniziale dì pesci, 
nsqualì: numera iniziale di squali, 
pprole: tempo di riproduzione dei pesci 
in crononL 

s prole: tempo dì riproduzione degli spro- 
le squali in Granoni. 

nlnedìa: tempo dì sopravvivenza degli 
squali a digiuno in crono ni. 

Abbiamo detto che la superfìcie di 
Wa-Tor é toroidale. Questo significa so- 
lamente che se un abitante si trova in 
una deile celle a destra delle griglie e 
decide di spostarsi ancora verso destra, 
ricompare a sinistra. Lo stesso succede 


dall'alto in basso. La superficie risultan- 
te non ha bordi, e questo elimina i pro- 
blemi relativi alle "condizioni al 
contorno". 

Dopo una serie di simulazioni a cin- 
que parametri, sono riuscito a realizzare 
un ecosistema apparentemente eterno: 
apparentemente significa che ho osser- 
vato l'evoluzione del sistema per circa 
2000 crononi, ed esso è passato attra- 
verso una serie di periodi cilindrici in cui 
gli squali ed i pesci aumentavano e dimi- 
nuivano in modo regolare seguendo 
quella che viene chiamala "relazione 
preda-predatore". 

Questo significa semplicemente che 
in presenza di molti pesci, gli squali ten- 
dono ad aumentare motto velocemente 
perchè si riproducono ma non muoiono. 
Col passare del tempo però i pesci co- 
minciano a scarseggiare, e gli squali, 
non avendo più niente da mangiare co- 
minciano a morire molto velocemente 

Quando gli squali diventano molto po- 
chi, t pesci ricominciano ad aumentare e 
cosi di seguito. Questa relazione tra Se 


due popolazioni sembra trovare un ri- 
scontra anche in natura, nonostante non 
tenga conto di motti parametri che pos- 
sono contribuire all'evoluzione di un 
ecosistema. In figura 1 potete osservare 
il numero di lepri e di linci catturate dalia 
Compagnia della Saia di Hudson dal 
1050 al 1900. 

Tenendo conto che le lepri costituii 
scono in quella zona la più grassa fonte 
di nutrimento per le linci, e supponendo 
che il numero di animali catturati sia pro- 
porzionale a quello effettivo esistente, 
possiamo osservare una stretta rasso- 
miglianza tra le curve del grafico e la 
nostra relazione. 

Non è comunque facile ottenere Wa- 
T or, cioè un ecosistema eterno. Non vo- 
glio dirvi qual è stata la famiglia di para- 
metri che mi ha permesso di arrivare a 
questo risultato, ma solo aiutarvi con 
qualche suggerimento dettato dalla 
pratica: 

1/ "nsquati" e "npesci" sono meno im- 
portante degli altri parametri, se tenuti 
su valori abbastanza alti. 


Popolazione 

(mignola) 



Fig. 1; Numero di i&pri catturar© dalia compagnia della Baia di Hudson dal 1850 al 1900. 
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sul mercato ho scelto rQxford Pascal 
por vari molivi: è distribuito in Italia rego- 
larmente da due ditte, è facile da usare, 
ha un editor molto potente, è tremenda- 
mente veloce, permette il link con libre- 
rie su disco e ha una serie di procedure^ 
e functions non standard che permetto- 
no di usare la grafica e il suono del C64. 
E possibile inoltre ottenere alla fine un 
file caricabile ed eseguibile da Basic, 
estremamente compatto e veloce. Agli 
altri compilatori mancava almeno una di 
queste caratteristiche. 

Mi sono comunque sempre tenuto 
neH'ambilo del Pascal Standard, con 
qualche eccezione: 

1 } La function RANDOM non è presen- 
te nel Pascal Standard. Nella maggior 
parte delle versioni esiste comunque 
qualcosa di simile. La function 

RANDOM MOD(N) + 1 

ritorna un numero casuale compreso tra 
1 e N. 

2) La procedure 
VDU(X,Y,'c f ) 

mette il carattere *c' nella riga Y, colonna 

X. 

3} La function 
GETKEY 

ritorna il primo carattere presente nel 
buffer di tastiera- 


riga 2850 e dopo una serie di input relati- 
vi ai cinque parametri cornicia il loop 
pricipale di elaborazione composto da 
tre procedures. 

FASEPESCI: in questa fase i pesci nuo- 
tano e si riproducono. Viene scelta una 
direzione casuale e si tenta il movimen- 
to. Se questa è occupata si gira in senso 
orario fino a trovare una celia libera. 

Se non è possibile il movimento non 
succede niente. Attrimenti si controlla 
“pprole” e eventualmente si procede al- 
la nascita. Il padre si sposta ed ifl figlio 
rimane nella posizione lasciata libera. 

FASESQUALI: in questa fase gli squali 
predano, si riproducono e muoiono. Vie- 
ne scelta a caso una direzione e st cerca 
un pesce. Se non c + è si gira in senso 
orario fino a quando esso non viene tro- 
vato. In caso positivo lo squalo mangia il 
pesce, e si sposta nella cella corrispon- 
dente. Se non esistono pesci circostanti 
viene scelta la prima casella vuota, e lo 
squalo si muove in quella. Se esso è 
circondato da altri squali rimane fermo. 
Si procede al controllo di una eventuale 
nascita e di una eventuale morte. Se lo 
squalo sta fermo o muore, non può 
partorire. 

MOSTRAMARE: viene visualizzato l'o- 
ceano. La visualizzazione può essere 
effettuata due volte (dopo FASEPESCI 
e FASESQUALI) o una volta sola (dopo 
FASESQUALI). 


2 i II tempo "pprote” non deve essere 
troppo lungo, perchè un grosso branco 
di squali potrebbe divorare tutti i pesci 
esistenti se questi non riescono a ripro- 
dursi abbastanza velocemente. 

3/ Il tempo' ‘sprole 1 ' non deve essere 
troppo corto, perchè una sovrappopola- 
zione di squali potrebbe portare gli stes- 
si ad una veloce estinzione. 

4/ "nìnedia 1 ' va bilanciato molto bene. 
Se troppo lungo può portare ad una so- 
vrappopolazione di squali e relativa 
estinzione. Se troppo corto può portare 
all'estinzione per inedia da ricerca di 
cibo. 

In ogni caso cercate dì osservare ogni 
ecosistema per almeno dodici ore, che 
sono circa 1500 croroni, Sarei felice di 
ricevere soluzioni, osservazioni e sug- 
gerimenti riguardanti Wa-Tor, quindi 
scrivete. 

I più pigri possono trovare una solu- 
zione nefrarticolo di Dewdney su Le 
Scienze, intitolato "Squali e altri pesci 
combattono una guerra ecologica sul 
pianeta Wa-Tori\ 

Il linguaggio 

La scelta del Pascal come linguaggio 
dì programmazione per la realizzazione 
di Wa-Tor è stata Obbligata, E' Infatti il 
classico esempio di algoritmo pieno di 
frasi del tipo: 

SE condizione ALLORA 
COMINCIA 
elaborazioni: 

FINE 

ALTRIMENTI 

COMINCIA 

elaborazioni; 

FINE 

Queste frasi sono inoltre annidate una 
dentro l'altra come tante scatole cinesi. Il 
Pascal permette proprio una struttura- 
zione delle frasi di questo tipo. E' inoltre 
richiesta una alta velocità di elaborazio- 
ne, cosa che il Basic, per quanto compi- 
lato* non riuscirà mai a raggiungere. 

Fra ì vari compilatori Pascal presente 


La traduzione per un altro compilatore 
non dovrebbe quindi comportare dei 
problemi. 

La dimensione dell'oceano è fissata a 
25 righe per 40 colonne e può essere 
ristretta semplicemente ridefinendo le 
costanti nella riga 1010, 

Vi ricordo che i numeri dì riga presenti 
nel listato no n hanno nessun senso in 
Pascal, ma servono solamente come ri- 
ferimento per Teditor. 

L’algoritmo 

li programma principale cornicia alla 


Un’altra importante procedure è INI- 
ZIÀLIZZA, Essa popola l'oceano inizial- 
mente in modo casuale creando “ripe- 
sci" pesci e "nsquali” squali, ognuno 
con una età casuale compresa nei para- 
metri "pprote" e "sprole 1 '. Ad ogni 
squalo viene inoltre imposta una età d'i- 
nedia casuale compresa tra 1 e "nine- 
dia". Tutto ciò è necessario per evitare 
delle disomogeneità nella popolazione 
iniziale. 

Le variabili 

Ci sono cinque matrici dì interi: 
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PESCI: contiene l f età in Granoni di ogni 
pesce. Se la cella è vuota il valore corri- 
spondente è -1, 

SQUALI : contiene reta in Granoni di ogni 
squalo. Se la cella è vuota if valore corri- 
spondente è -1, 

MOSSAPESCE: registra con un 1 tutti i 
pesci mossi in quella fase. Viene riazze- 
rata ogni cronone dalla procedure PULI- 
SCI, Serve ad evitare di muovere due 


volte lo stesso pesce in un cronone. 

MOSSASGUALO: analoga a mossape- 
sce ma per gli squali. 

INEDIA: contiene il tempo di digiuno in 
Granoni di ogni squalo. Se la cella è vuo- 
ta il valore corrispondente è -t. 

Le variabili intere NPESCI. NSQUALI, 
PPROLE, SPROLE e NINEDIA conten- 
gono i rispettivi parametri. 


Il programma 

Appena partito il programma chiede i 
cinque parametri della simulazione e 
quindi comincia le elaborazioni. 

E' possibile tornare ainnserimentc 
deiparametri premendo + q" e aspettando 
la fine della procedure PULISCI. 

I pesci vengono visualizzati sullo 
schermo come un punto (,} e gli squali 
come uno zero (0). 


1000 PROGRAM WATDR;<*BY MARCO DE ROSA*> 

1010 CONST R JGHE *25 ; COLONNE = 40 2 UNOP I UUNOUGUALETRE =FALSE; 

1080 VAR PESC I i ARRAY C 1 . . R t OHE COLONNE IOF INTEGER; 

1030 SQUAL r : ARRAY C 1 . . R IGHE r l t < COLONNE JGF INTEGER; 

1040 MOSSAPESCE: ARRAYC 1. .RIGHE, U -COLONNE IOF INTEGER; 

1050 MOSSASGUALO «ARRAYC 1 , .RIGHE , 1 . .COLONI 30P INTEGER; 

1080 INEDIA; ARRAYC 1 . .RIGHE, 1. , COLOHr-El 10F INTEGER ì 
1070 NSQUALI # NPESCI ,N INEDIA, PPROLE, SPRQLE: INTEGER; 

1080 PROCEDURE MDSTRAMARE* 

1090 VAR 1 , J i INTEGER; 

\ 100 BEG IN 

1110 FOR I : «1 TO RIGHE DO 
1130 BEGIN 

1 1 30 FOR J ! *1 TO COLONI DO 

1140 IF PESCI t I ,JJ<>-1 THEN VDUCf-I , J-I , * . * > ELSE 

1150 IF SQUALI! I ,J1< >-l THEN VDU <1-1, J-l* ’ 0 * 1 > ELSE VDU t l - 1 , J-ì , * *>f 

1160 end; 

I 1 70 END; < *D 1 MOSTRA MAR E * > 

118© PROCEDURE INIZI AL IZZA! 

1190 VAR INTEGER; 

130© BEGIN 

12 10 BORDER <0 ) * SCREENC0 > ì PENC 1 >t 
1320 FOR limi TO RIGHE DO 

1230 BEGIN 

1240 FOR J ;*! TO COLONNE DO 
1250 BEGIN 

1260 PESCI! I ,Jls--USQUALl C I , J 1 s = »i; 

1270 MOSSAPESCE C 1 , J] i *0 ; MQSSASQUBLO C I ,J 1: =0; 

1260 INEDIAC I i =- 1 ; 

1390 E NO ; 

1300 END! 

13 10 FOR H=1 TO rsPESCI DO 

1320 BEGIN 

1330 REPEAT 

1340 Ki-RANDOM MOD < COLONNE ) + 1 ; 

1350 Y**RANOOM MQD<R IGNE I + 1 ; 

1 3B0 UNTIL PESCI CY,X 3=“i ; 

137© PESCI CY,X] i =RAMDOM MOD ( PFRQLE > + 1 J 

1380 END l 
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1390 
i 400 
(410 
14 20 
14 30 
1440 
$450 
1480 
1470 
1480 
1430 
1500 
1510 
1520 
1530 
1540 
1 550 
1560 
1570 
1590 
1590 
1800 
1810 
1620 
1630 
1640 
1850 
1660 
1670 
1630 
1690 
170© 
1710 
1720 
1730 
1740 
1750 
i 760 
1770 
1780 
1730 
1800 
1810 
1820 
133© 
1340 
1350 
1860 
1 878 
1880 
1890 
1300 


FOR Issi TO NSQUALI DO 
BEGIN 
REPEAT 

X = =RAND DM HDD < COLONNE > + 1 J 
Y!=RANDOM MQD CR IGNE) + 1 f 
UNT IL (SQUALI £Y,X3*-I )AND CRESCI CV,K1=-1>; 

SQU AL I C Y , X 1 : =RAf COM HDD C SPROLE > + i / 

INEDIAIY,*] : «RftNOOM MOD C NI NEO I A > + 1/ 

ENDJ 

END? <*DI INI2 I AL IZZA* > 

PROCEDURE PUL ISC i ; C *MOSSASQUALO E MOSSAPESCE*> 
tfAR I , J s INTESER O 
BEO IN 

FOR It*i TO RIGHE 00 
BEG IN 

FOR J;=l TD COLONNE DO 
BEG IN 

MGSSAPESCEt I ,J3i=0/MQSSASGUALOC 1 r J 1 : *0? 

END! 

END; 

END? <*DI PUL I SC I * > 

PROCEDURE POSTOPESC£<X,Ys 1NTEGER > # 

VAR J , J,h£l4X,NELiYi INTEGER; 

BEGIN 

I : = < RAND0M HDD <4 > + 1 > ; J s = 0 ; 

REPEAT 

NEWXi =X?NEWY:=Y; I : ~1 + I ; 

IF 1 =5 THEM I * ^ i ; 

CASE I OF 
1 : f’EUX : -X - 1 ; 

2ì NE14Y: = Y- 1 ; 

3ENEÌ4X: =X + 1 1 
4:NEWY: =Y+l; 

END/ 

IF NEWX-0 THEN h£WX = =COLOhrJ£ ; 

IF NEWX= (COLONNE* I ) THEN NEWX:»i; 

IF NEWY=0 THEM NE14YI “R IGNE; 

EF NEWY=(R1GHE+U THEN NEWYt = I; 

UNTIL ( (PESC I t NEUJY , NE WX 3 - - 1 >AND (SQUALI C NEUY , NE14X ] = ~ 1 >>0R(J~4>; 
IF <PESC I CNELTrVNEWX J l > ANO < SQU AL I CNEWY , NEWX ] * - I > THEN 
BtGIN 

PESC 1 tNEWY.NEU^il s *PESC I EY,X J-l / 

MOSSAPESCE [ NEWY , NEWX ] : = 1 / 

IF PESC I ENEWY , NEUJX ] =0 THEN 
BEGIN 

PESC I C NCWY , NEWX J s ^PFROLE % 

PESC ! T Y , X I s =PPROLE / 

END 

ELSE PESCI ir, XI is-lJ 
END/ 

ENDIADI POSTOPESCE*) 

PROCEDURE FASEPESCI/ 
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1910 
1920 
1930 
1940 
1 950 
I960 
1970 
1990 
1390 
2000 
80 10 
2020 
2030 
2040 
2050 
2020 
2070 
2080 
2090 
2100 
21 10 
2 120 
2130 
2 140 
2130 
2160 
2170 
2130 
2 190 
2200 
2210 
2220 
2230 
2240 
22S0 
2260 
2270 
2280 
2230 
2300 

23 10 
2320 
2330 
234 0 
2350 
2360 
2370 
2380 
2390 
2400 

24 10 
2420 


VAR 1*15 INTEGER ? 

BEGIN 

FDP I!=i TO RIGHE DO 
BEGIN 

FOR J ! 3 1 TO COLONNE DO 
BEO IN 

TFfMOSSAPESCEC I , J 1 =0 >AhO CRESCI C I , J 1 < > - I >THEN POSTQPESCE ( J , I > ; 
END; 

END; 

ENO;C*Dl FASEPESCI** 

PROCEDURE P0STOSQUALO < X ,Y : INTEGER > ; 

VAR I , J , NEWX , NEWY, FREEX, FREEY: IMTEGERJ 
BEGIN 

I i = < R AHDOM MODI 4 > + 1 > ; J r=0 ; 

FREEX s -0 : FREEY: =0 i 
REPEAT 

NEWX s =X j NEWY i » Y : I è = I + 1 ; J = = J + I ; 

IF 1=3 THEN rial; 

CASE l OF 
ì JNEUIX5 =X-l; 

2 ; NE W Y : ay-1 ; 

3 s NEWX s *X+ W 

4 s NEWY; *r + 1 ; 

END; 

IF NEWX=0 THEN NEWX ^COLONNE: 

IF NEW 3 < COLONNE + i ) THEN NEWX ; = I ; 

IF NEWY=0 THEN NEWY: =RIGHE; 

IF NEWY* (RIGHE* I > THEN NEWY : = 1 ; 

IF SQUALI CNEWY,NEUX1=-1 THEN 
BEGIN 

FREEX: =NEWX; FREEY: =MEWY ' 

END? 

UNTILA (SQUALI CNEWY,NEWXl=-l ìANCKPESC I C NEWY , NEWX ! <> - i ; >ORvJ=4>; 

I F ( SQUAL I C NEWY , NEWX l = -\> AND ( PESCI! NEWY , NEW J< > * 1> THEN 
BEGIN 

PESCI C NEWY , NEWX 1 i«-l; 

I NED I A C NEWY , NEWX ] : “N I NED I A i 
SQUALI [NEWY, NEWX 3 : 3 SGUAL I tY,X3-l; 

THED I A I Y ,X 3 * = - 1 * 

SQUALI r Y , X 1 1 --1; 

MOSSASQUALO C NEWY , NEWX 3 : « 1 ? 

IF SQUALI [ NEWY, NEWX 1=0 THEN 
BEGIN 

SQUALI [NEWY, NEWX li = SPROLE; 

SQUALI CY,XJ \ =SPROLE? 

INEDIA! Y, XI : =N INEDIA; 

END; 

END 

ELSE 

BEGIN 

IF < FREEX O0) AND CFREEY:>0> THEN 
BEG IN 
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2430 NEUXt =FREEXf MEWYs =FREEY* 

£440 SQUAL I f MEWY , NEWX I ! =3QUAL I CY,X 1 - 1 * 

£450 SDUALI t Y.XI : t J 

?4E0 1NED I A tNEWY »N£WX ) S * INED tAtY ,X I - 1 : 

£470 INEOIAtY,X1 s =-i; 

£430 MQSSASQUALO [ NEWY -NEWX I 5 - 1 •’ 

24SP IF I^EDIAINEWY,I'EUXI=0 THEN 

2500 BEGIN 

2510 SQUALI tNEWY, MEUX li = - 1 ! 

2520 INEDIAIIsEWY.NEUXJS ='l? 

2530 Er-O 

2540 ELSE IF SQUAL I C tCWY , NEW* 1 ^0 TnEN 

3550 BEO IN 

25E0 SQUALI {NEWY , NEWX 1 s=SPROLE; 

2570 SQUAL I [ Y r X 1 : = SPROLE; 

2580 INED IAI Y,X] S =NINED 1A; 

2590 END; 

2800 END 

2610 ELSE 

2S20 BEGIN 

2S30 I MEDIA CY,X I '• “INEDIA IY ,KI - 1 S 

2840 SQUALI [Y,XJ :=SQUALI IY,X3- W 

2850 IF I NEO I A t Y , X I =0 THEN 

2860 BEGIN 

2870 SQUALI CY, XI :=-lf 

2680 INEDIA CY ,X I :=-tJ 

2690 END 

2700 ELSE IF SQUALI [Y,XI=0 THEN SQUAL 1 l Y , X 3 : <=SPROLE J 

27 1 0 END f 

27£0 ENO ; 

2730 eno;<*di POSTOSQUALO*> 

2740 PROCEDURE FASESQUAL 1 f 
2750 VAR I , J ; INTEGER J 
2760 BEGIN 
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2770 

2730 

2730 

2800 

2810 

2820 

2830 

2840 

2350 

2880 

2870 

2880 

2390 

2900 

29 10 

3920 

2930 

3940 

2950 

2960 

3970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 


POR I s -1 TO RI3HE 00 
BEO IN 

FOR J : = 1 TO COLONNE DO 
BEGIN 

IF(M0SSASQUf»L0t I , J J =0 ) AND C SGUftL I C I ,J3< >“1 ) THEN POSTOSQUftLD i J , I > ; 


END; 

END; 

END; < +0 ! FftSESQUALl*) 

8EG INC *DEL PROGRAMMA PR I NC I PALE * ) 
REPEAT 


PAGE? 
WR I TE C 
LIR I TE < 


NUMERO PESCI 
NUMERO SQUALI 
HR ITE < ‘PARTO PESCI 
LIR I TE < ' PARTO SQUALI 
INEDIA SQUALI 


UR I TE < 

PAGE ì 

i niz i al izza; 

MOSTR AMARE? 

REPEAT 

FASEPESCI? 

MOS TRAMARE ì 
FASESQUALI ? 

mostramare; 

PULISCI; 

UNTIL GETKE V= ‘Q ' ? 

UNTIL UNOP I UUNOUGU ALETRE ; 
END • 


) ; READ ( NPESC I >; 

> ? RE AD C NSGUAL I >; 
) P READ C PAROLE ) ì 
> f READ C SPROLE); 
);REAO (LUNEDIA?; 


ATTENZIONE 

V primo, il più vasta od economica computer shop ali 1 ingrosso, da oggi a casa vostra 

Computerà APPLE fl€ e IBM PC compatìbili 100% - Monitor - Stamponi I - Drive * Winchester 10/ 
Ì2, 5/30 MBytes - Floppy dì$c - Dtac Cartndge - Disc Pack - Modani Flottar Tavolette grafiche 
■ Interfacce - Accessori - Tetaionw iTAiTEL ■ Fotocopiatrici - Macchine par ufficio 

A PREZZI DA GROSSISTA,.,™ 

UNICI E PRIMI CI DIFFERENZIAMO DALLA MASSA PER: 

CONSULENZA ASSISTENZA GARANZIA QUALITÀ COMODITÀ 
PREZZI PREZZI PREZZI PREZZI 

GRAZIE Al VENDITORI P E G IN TUTTE LE CiTTA ITALIANE 

— OLTRE 200 PRODOTTI A CASA VOSTRA — 


Vi interessa saperne dì più? 


TONINO 

F&brwJo 

Tal 01 1 / 7KM80 

MILANO 

Tfimeosco 

Tcri. 02 / 3575487 

MILANO 

Marea 

Tel r 02 !2 130347 

ROVIGO 

Uidrwieo 

Td. 0426/ 29745 

TRIESTE 

Roberto 

Tei. 040 t 824flg? 

GENOVA 

Corroda 

Tiri 010/664772 

BRESCIA 

FHfrtro 

Tot 0364/07192 

GENOVA 

francato 

Tel 010/369443 

GENOVA 

Callo 

Tel 010/331323 

SESTRI lev. 

Paolo 

Tiri- 0165 / 44382 

GENOVA 

Annoto 

Tel. 010/ £41524 

PIACENZA 

Paolo 

Tiri. 6523 /2M20 

PIACENZA 

Robnrlu 

Tal, 0523/20330 

MODENA 

Mauro 

Tqi. 059/362360 

REGGIO E. 

Giorgio 

m «22/ 629? 14 

Me* CARRARA 

Maurizia 

Tal. 0505/ 52684 

LUCCA 

Marò 

T«M£«3/ 900017 

LUCCA 

Massimo 

Tot 0583/86451 

PRATO 

Gian Marco 

Tal 0574/594310 

FIRENZE 

Usa 

Tel. 055 / 476249 

FIRENZE 

Statino 

Tel. 055 / 701010 

AREZZO 

G rincarto 

Tal. 0575/910145 

SIENA 

Afflino 

Tiri. 0677/936524 

PERUGIA 

Mauro 

Tel. 075/767302 

PERUGIA 

Maurizio 

Tal. 0742/55897 

CAGLIARI 

Mario 

Tei. 070/265045 

CAGLIARI 

Gtorpwra 

Tei. 070 / 236275 

CAGLIARI 

Eros 

Tei. 0791/509211 

ROMA 

Alesiandro 

Tal 06/5695793 

PESCARA 

Franco 

Tel 085 / 74056 

L AQUILA 

Marco 

Tal 0S62 / 22594 

NAPOLI 

Andato 

Tei 081/7674921 

PORTICI (HA) 

Antonio 

Tel. 061/ 7533660 

NAPOLI 

Pasquale 

Ttri. 061/294223 

NAPOLI 

Luigi 

Tal. 001 f 0501 NO 

PORTICI (NAJ 

Francesco 

Tot. OS U 401 953 

CAMPQB. 

Ermes 

Tal 0075/71 956 

FOGGIA 

Giulio 

Tal, «SS /ai 127 

FOGGIA 

Giuseppa 

Tel. 0663 /44&03 

TARANTO 

Martino 

Tel 660/703204 

KM 

Mrcboki 

Tei, 080 / 683037 

BARI 

Roberto 

Tel 080/222640 

BAH! 

AnSo '130 

Tot 080/514773 

LECCE 

Antonello 

Tot, D533 r 741SJ4 

LECCE 

Antonio 

Tel 0832/ 676101 

CATANIA 

Mono 

Taf. 065/ 615205 

CATANIA 

Fortunato 

Tot, 005/616976 

CATANIA 

Roberto 

Tel. 095/446072 

CATANIA 

GkiSicppa 

Tal 096/ 356974 

PALERMO 

Fronctìsce 

Tel. U9l / 266996 


P.E.G, - FIRENZE CONDIZIONI UNICHE E VANTAGGIOSE 

TeL 055/677503 PER I SIGNORI RIVENDITORI 
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Hardware 

Vendo Vie 2G a L 14Q000 regalo, a chi lo 
acquista il libro ' Alla scoparla del Vie 20" del 
valore di L 22 000. {Ruggieri Giovanni - Via 
S, Francesco D 'Assisi, 8/ B - 70026 Modugno 
(Bari)} 

Vendo Vie 20 + regisiralore dedicato C2N 
(lutto perfetto) -f manuale in italiano + libro 
Alla scoperta del Vie 20" + 50 programmi + 
numerosi listati. Inoltre regalo joystick. L 
250.000. (Massimo Bonaventura - Via L. Va- 
daseli!. 31 - 001 52 Roma - tei. 06/5345335) 

Vendo consolle Atari completo + 1 paddle 
doppio + 2 joystick a lastiera a L 100.000 
con cassette giochi a L 30.000 Cuna stock 20 
cassette giochi a L. 40G.0Q0.{ Fabrizio Carli r 
Via Lissa, 48 * 30021 Caorle (VE) * lei 0421/ 
83302) 


Software 

Meloncelti Tito - Via Nicola Serra, 44 - 97100 
Cosenza - tei Q9B4/3B377 

Simone Trezza - Via Giovanna D'arco. 140 - 
20099 Sesto S. Giovanni (Mt) - tei. 02/ 
2482122 

Berlocchi Daniele - Via Mazzini, 27 - 2447 
Trevìgiio (BG) - tei. 0363/41385 

Cianci Antonio - Via Unione Sovietica, 15 - 
50126 Firenze - tei 055/680806 

Roberto Sambo - Via Vianellì, 1029 - 30015 
Ch loggia (VE) 

Marco Bossi - Via Palazzob, 2 - 53040 Sina- 
lunga (SI) -lei 0577/663550 


Vendo Vie 20 + registratore + joystick (da 
L30.QD0) + 10 cassette con olire 40 giochi + 
la guida all'uso del Vie 20. Il tutto a L. 200. 000 
(non trattabili) ancora in garanzia per 5 mesi 
(Gire ielle Antonio - Via G. Di Vittorio. 12/A - 
20090 Trezzano S/N) 


Compra cartuccia Vic-Mon per il Linguaggio 
Macchina del Vie 20 e cartuccia Programmar 
Aìd's (Garofalo Giovanni - Via Ma bòa. 6 - 
20148 Milano- tel.394488) 


Compro brani musicali composti in BASIC 
per CBM 64 qualunque genere a L, 10.000 
ognuno minimo 3 minuti (Saverio Pepe - Via 
Mazzini Ovest. C/3 - 8300 Avellino - 
tel.0825/73t18) 


dall' INGHILTERRA i fantastici computer games ELETTRIZZANTI 



THE CdPTtYt 
CSM 64 


ACTHON filKEn 

ehm fi 4 - srtttnuM 


AVVINCENTI 

EMOZIONANTI 


TUFFATI NEI FANTASTICO 
. ■ MONDO MASTIRTR0NIC! 

per vivere nuove emozionanti 
avventure piene di suspence e 
frenetiche, animazioni. 

QUALITÀ’- PREZZO soto£7.900 è la grande proposta 
MASTERTROHIC per conquistare tanti amici. ‘ <■ 


F IMPETO * E £*£(*$ 

rssM- usa - 


M ASTE RTRO NIC 





CODICE FISCALE : 

CONTROLLO 
E GENERAZIONE 


di Enzo o Nemo Galletti 



REPUBBLICA 

ITALIANA 

MINISTERO 

DELLE 

FINANZE 


BNVMRS6 5E56C5650 


FISCALE 

COGNOME 

NOME 
LUOGO DI 
NASCITA 

PROVINCIA H 

1984 


BENVENUTO 
KAR IA ROSARI A 
CESANO POSCOHE 

DATA di nascita 


! 6/05/65 


* M." rj,u !iniii< ! .■iiiiu’i* 


rs 


A giudicare dall'elevato numero di pro- 
grammi dì contabilità e fatturazione in 
commercio, possiamo ritenere che non 
siano pochi cobra che utilizzano if Com- 
modore 64 per produrre fatture o docu- 
menti contabili, o anche semplicemente 
per archiviare fatture o note di 
prestazione. 

Jn questi casi può essere utile avere 
una routine contenuta in un programma, 
oppure un programma indipendente co- 
me quello proposto, che sia in grado dì 
svolgere un controllo sulla ammissibilità 
del Codice Fiscale dì un cliente. 

Può essere utile anche avere (a possi' 
bìlrtà di generare "In proprio** il Codice 
Fiscale, per quelle volte in cui non lo 
abbiamo a portata di mano o per correg- 
gere un codice non esatto, 

A questo proposito va detto che il De- 
creto Ministeriale del 23 dicembre 1976, 
pubblicato sulla Gazzetta Ufficiale del 
29 dicembre 1976* da cui sono state 
tratte tutte le informazioni "legali' 1 per 
realizzare questo programma, non con- 
sente dì utilizzare un Codice Fiscale pro- 
dotto “in proprio", riconoscendo - 
ovviamente - come valido soltanto quel- 
lo assegnato dagli uffici preposti. Effetti- 
vamente, anche se il caso è rarissimo, si 
possono verificare omonimie tolali, di 
persone che posseggono lo stesso no- 
me e cognome e che sono anche nate 
nello stesso gramo e nello stesso comu- 
ne. Jn questo caso uno dei codici fiscali 
dei due omonimi "totali" risulta anomalo 


Gli “T rappresentano lettere e gli *'(T 
numeri, fi primo campo (111) viene rica- 
vato dal cognome, il secondo (11 1) dal 
nome, il terzo dalla data di nascita e dal 
sesso; più precisamente le prime due 
cifre rappresentano rannodi nascita, la 
terza è una codifica del mese e la quarta 
è costituita dal giorno di nascita addizio- 
nato di un valore rappresentante il ses- 
so. Questo valore è 0 nei caso dì un 
maschio, 40 se femmina. Il quarto seg- 
mento (1000) rappresenta il comune di 
nascita, il cui codice viene ricavato dal 
libro "Codice dei Comuni d'Italia", re- 
datto dal Catasto e dai Servizi Tecnici 
Erariali, Il fatto di non conoscere questi 
codici (ben pochi sono in possesso di 
questo volume) non rappresenta un in- 
sormontabile impedimento per la gene- 
razione del nostro C,F„ in quanto può 
essere sufficiente ricavare il codice del 
comune di nascita da quello di un nostro 


parente o amico nato nello stesso 
comune. 

rispetto alle regole generali, dovendo 
differenziarsi daJraftro. Ecco il motivo 
per cui, anche se raramente* il Codice 
Fiscale generato seguendo le regole co- 
dificate dal succitato decreto potrebbe 
rivelarsi inesatto. 

Vediamo quali sono le informazioni 
che concorrono a comporre II Codice 
Fiscale* e quali conoscenze possiamo 
ricavare analizzandone uno già 
assegnato. 

La lunghezza def codtceèdi 16 carat- 
teri, di cui 15 portano informazioni e il 
1 6° costituisce un controllo codificato sui 
precedenti (si tratta di una invenzione 
della I.B.M, degli anni '50. chiamata 
C.I.N. ), 

Divìdiamo fe prime 1 5 cifre del Codice 
Fiscale nei seguenti segmenti; 

Iti 111 00100 1000 
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li programma proposto ci aiuta a risol- 
vere questo problema poiché nelle lìnee 
DATA numerate a partire da 5000 sono 
presentì ì codici di tutti i comuni capoluo- 
go dì provincia, circa 96, dove è nato 
altre il 50% degli italiani. 

Per utilizzare la tabella presente in 
memoria occorrerà introdurre, quando 
vi verrà domandato, il CAP, {Codice di 
Avviamento Postale) de! comune di na- 
scita. Ad esempio per Milano potremmo 
introdurre o direttamente il suo Codice 
Erariale F 205, oppure II suo GAP,, cioè 
20100 . 

Se un comune non si trova in memo- 
ria, o se avete introdotto un CAP, erra- 
to, vi verrà segnalalo che il " Comune 
non è presente in memoria" e dovrete 
reinfrodurre o il Codice Postale corretto 
o il Codice Erariale. 

E' stata adottata la tecnica di ricerca 
sequenziale tramite CAP. per dare la 
possibilità di introdurre dati aggiuntivi. 
Nel caso desideriate introdurre altri dati 


di comuni non memorizzati, non occorre 
tare altro che aggiungerti nelle linee DA- 
TA nella stessa forma in cui sono memo- 
rizzati i precedenti, cioè "CAP." 
+7*+' 'Codice Erariale" in qualsiasi po- 
sizione prima detta linea 6000. che rap- 
presenta un "Tappo” per Indicare che i 
dati sono finiti 

Poiché la generazione e il controllo 
del "G.LN." sono piuttosto complicati 
non riferiremo dettagliatamente in que- 
sta sede, accennando solamente ai fatto 
che, tramite l'attribuzione di valori diver- 
si legati ad ogni cifra e alla posizione da 
questa occupata nel Codice Fiscale, 
viene generata univocamente una som- 
ma che, divisa per un fattore e moltipli- 
cata per un altro, può essere rappresen- 
tata, sottoforma di codice, da una cifra, 
detta GI.M. 

L'interpretazione del C.I.N. e il con- 
fronto con la reale posizione e valore 
delle cifre precedenti ci comunicano se 
le cifre sono in posizione errata o diver- 


se da quelle da cui il C.I.N. stesso fu 
generato. 

Un'ultima considerazione per coloro 
che volessero separare le due partì dei 
programma (Generazione o Controllo). 

Mentre la prima parte. Generazione, 
si avvale anche della seconda, per cui 
risulta da questa inscindibile, è possìbile 
separare la soia seconda parte, ad 
esemplo per introdurla in un nostro pro- 
gramma di fatturazione. 

A questo scopo risultano superflue le 
righe da 1050 a 1940, nonché i sottopro- 
grammi che partono dalla lìnea 4500 (ri- 
cerca consonanti e vocali) e 5000 (ricer- 
ca codice del comune), 

Questo programma, scritto per Com- 
modore 64, è compatibile con il Commo- 
dore 16 e con il Commodore Plus 4, ad 
eccezione delle due POKE di colore di 
bordo e sfondo, situate alfa linea 1050, 
che possono venire eliminate o modifi- 
cate a piacere. 


500 

510 

520 

530 

540 

550 

560 

562 

564 

570 

1000 

1010 

1020 

1050 

1060 


1070 

1080 

1090 


REM ********** ************* 

REM *CONTR0LLO/GEhERAZ IGhE* 

REM * DEL CODICE FISCALE * 

REM * DI ENZO E NEMO * 

REM * GALLETTI * 

REM *********************** 

REM *COMMODQRE 16 SI* 

REM *COMMODORE 64 SI* 

REM *CQMMOPORE PLUS4 SI* 

REM *********************** 
AN$=M I 1111 00 1001 000 B 
TC$= " 0 1 00050703 1315171321 0204 1 
620 1 1 030608 1214161 022252423 u 
MN$- " ABCDEHLMPRST 1 
POKE 53380,0: POKE 5328t,lJ;REM 
SOLO COMMODORE 64 
PRINT* CCLEAR 31 CELESTE 3 ******* 
**** CODICE FISCALE ********** 
** 

PRIMI* ****** DI ENZO E hEMO 
GALLETTI ******* 

PRINT" £2 DOWN] [GIALLO I 1 - G 

ENERAZ IONE CODICE FISCALE" 
PRINT" [DOUN3 £ - CONTROLLO 


CODICE FISCALE" 

1100 GET A$:IF A*<>"i* AND 
THEN 1100 

1110 IF AtMM° THEN PR INT" [HOME H4 
DOWN] I R VS } 1 - GENERAI IGhE C 

OD ICE FI SCALE *1 GOTO 1500 
1115 IF A $="2" THEN PR INT" CHDhE ì £6 
001*1^3 [RVS32 » CONTROLLO C 
00 ICE FI SCALE" «GOTO 3000 
1500 REM GEhERAZ IONE CODICE 
1505 F£=l :F4=1 SPRINT" E2 DOWN] " 

1510 INPUT " C CELESTE 3 COGNOME E 6 1 ALL 

03. CAZZUR ]"IAS 

1520 GOSUB 40005 IF F1O0 THEN PRINT 
*E£ UP 3 " : GOTO 1510 
1530 GOSUB 4500:CF£=LEFT$<AÌ$+A2$+ B 
X" ,3>:C$=A$ 

1540 INPUT ■ [CELESTE jNOME [GIALLO ì ■ 

EAZ2UR]“;AS 

1550 GOSUB 4000: IF F 1 < >0 THEN PRINT 
* 12 UP 3 " : GOTO 1540 
1560 GOSUB 4500 

1570 IF LEN<A1*>>§ THEN A 1 $=LEFT* < A 
1*, 1 )+MID*<flI*,3,2> 
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15S0 N4=A4sCF4=LEFT4<CF4+A14+A2S+ ,, X 
" ,6 ) 

1600 It'PUT * t CELESTEl ANNO DI NASCI 
TA [GIALLO!. . . tAZZUR3";A4 
1610 GOSUE 4000! IF F 1 < >0 THEN PRINT 
0 E2 UFI"! GOTO 1600 
1660 A4=RIGHT4(A4,2>: IF VAL<A4)=0 T 
HEN PRINT" [2 UP 3 "SGOTO 1600 
1630 CF4=CF4+A4 

1640 I INPUT ■ icelesteimese DI NASCI 
TA [GIALLO], . . [A22UR3 "I A 
1650 IF A< 1 OR A >12 THEN PRINT" 12 U 
P]" :GOTO 1640 
1660 CF4=CF4+MID4<MN4,A, 1 > 

1670 INPUT * [CELESTE ]G1DRN0 DI NA 
SC ITAtAZZUR 3 " J A 

1680 IF A< 1 OR A >31 THEN PRINT" [2 U 
p 3»; GOTO 1670 

1690 IhPUT " [CELESTE 3SESSO (M/FMG 

IALLO] [AZZUR3';A4 

1700 IF A4<>"M" ANO A4<>"F' THEN PR 
INT" [2 UPJ" SCOTO 1690 
1710 S=0 1 IF A4="F" THEN S=40 
1720 CF4=CF4+RIGHT4( "0 " + (R IGHTSCSTR 
4< A+S ) ,LEN< STR4CA+S ))-l>>,2) 
1740 PRINT" [CELESTE ] COMUNE DI NASC 
ITA! COD IF . CATAST. 0 CAP' 

1745 INPUT " SE MEMORIZZATO [GIALLO] 

IA2ZUR] ";A4 

1750 IF LEN<A4>=4 THEN 1800 
1760 IF LEN<A4)<>5 THEN PRINT' [3 UP 
3* -.GOTO 1740 

1770 GOSUB 1 900 s REM RICERCA CODICE 
1780 IF LEN<A4)<>4 THEN PRINT" CODI 
CE NON IN MEMORIA! REIMPOSTARE 
'SPRINT' [4 UP] " SGOTO 1740 
1900 CF4=CF4*A4 
1810 GOSUB 2000 : REM CIN 
1979 PRINT" [DOWN3 r- 


1880 PRINT' CODICE FISCALE UBI ANCO 
I "CF4" EA2ZUR3 |“ 

1882 PRINT" ' 

SGOTO 3035 

1900 REM SUB RICERCA CODICE 
1910 RESTORE 

1920 REAO CM*,CO$:IF CM4=**' THEN R 
ETURN 

1930 IF CM40A4 THEN 1920 
1940 A4=C04s RETURN 

2000 REM SUB CIN E CONTROLLO POSIZ 
IONI 


2010 PP=0iP=l!E14=°" 

2020 FOR 1 = 1 TO 15 s P 1=ASC <MID4<CF4, 

1 r 1 > > 

2030 IF PI >47 AND PI <58 THEN PI=P1- 
48 s P2$= " 0 ' i GOTO 2060 
2040 IF PI >64 AND PI <91 THEN P 1 =P 1 - 
65 1 P£4= * 1 " I GOTO 2060 
2050 P£4="3" 

2060 E24=“ “ SIF P24<>MID4(AN4,I,1) 
THEN E£4="t" 

2070 E I4=E14+E£4 
2080 IF P=0 THEN- 2100 
2090 PP=PP+VAL<MID4<TD4, (Pi*2+I ),£) 
>:P=0 SGOTO 2110 
2100 PP=PP+PlsP=l 
2110 NEXT 

2120 PP=<PP- ( INT CPP/26) >*26) +65 
2130 IF F2 THEN CF4=LEFT4<CF4+CHR4< 
PP > , 16 ) 

2140 IF F4=0 THEN IF CHR4<PP>ORIGH 
T4<CF4 r l> THEN F4= lì GOSUB 2500 
2150 IF F4=0 THEN IF E14<>" 

“ THEN GOSUB 2500 

2200 RETURN 
2500 REM SUB ERRORE 
2505 PRINT" [RVS3IUP 3 *> TABU7>CF4 
2510 PRINT" [GIALLO ! m i TABC17JEI4 
2520 PR INT" [B IANCO I [DONNI CODICE FI 
SCALE ERRATO * PREMI 'FI":F 
3 = 1 

2530 GET ASs IF A40CHR4U33) THEN 2 
530 

2540 RETURN 

3000 REM CONTROLLO CODICE 
3010 F2=0!PRINT"[£ DOUMI' 

3020 If'FUT ' [CELESTE ICOD ICE FISCAL 
EIAZZURJ'S A4 

3030 GOSUB 4000SCF4=A4! IF FIO0 THE 
N PRINT" 12 UP 3 "SGOTO 3020 

3031 IF LENCCF4) < > 16 THEN GOSUB 250 
0 SGOTO 1050 

3032 PRINT"[UP3'; TAB ( 15 > " ";CF4;' 

■ 

3035 F3=0!F4=0i GOSUB 2000! IF F3=l T 
HEN 1050 

3040 SE4= 'M" : P S =VAL <MID4< CF4, 10 ,2 > > 
SIF PI >40 THEN PI=P1 -40iSE4="F 

m 

3030 D$=RIGHT$CSTR$<PÌ) ,2) : I=0:FOR 
J=1 TO 12 

3060 IF MI0S<CFS,9,Ì > =MID*<MN$, J, 1 ) 
THEN I=J:J=I£ 


f 
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3070 

3090 


3100 

3105 

31 10 

3120 

3130 

3140 

3145 

3150 

3160 

3170 

3130 

3190 

3200 


3210 

3220 

3230 

3240 

3250 

4000 

4010 

4020 


4030 

4100 

4500 

4510 


4520 


4530 

4550 


NEXTJIF 1=0 THEN Eli=“ 
t " : GOSUB 2500: BOTO 1050 
O^Dit"/" +RIGHTÌ<STRi<I> ,2) + V 
°+MI0i(CFÌ,7,2):REM DATA NASC 
ITA 

IF F2 THEN 3150 

PRINT" [DOUM1 [BIANCO JCODICE ES 
ATTO" 

PRINT" C DONNI [ROSA IOATA DI NAS 

CITA [AZZUR1 " ;DÌ 

PRINT” £ ROSA ISESSO [ 

AZZURJ’iSEi 

PRINT" [OOWNI IAZZUR1 PREMI ' 6 ' 
PER CONTINUARE" 

SET Ai! IF AÌOCHRIC64) THEN 31 
40 

GOTO 1050 

PRIMT'IOOWN] [AZZUR] VUOI STAI*ff> 
ARE? <S/N> " 

GET Ai! IF fi$(>*S n AND AÌO"N" 
THEN 3160 

1F AÌ=*N" THEN 1050 

OPEN 4 ,4!PR INT84 

PRINTW4, " FAC-S IMILE DI"! 

PR 1NTK4 , * CODICE FISCALE" 

PR INTD4 ! PR INT#4 , * , 

1 • ! PR INT#4 , ■ 1 

"JCFiJ" |“ 

PRINT84 , * i 

'":PRINT#4 

PRINTH4," COGNOr-Ei VCiiPR 

INT#4 , ■ NO(*E! ",*nì 
PRINT44 , * DATA DI NASCITA! 

PRINTt»4,“ SESSO! "jSEi 

PR1NT#4 iCLOSE 4: GOTO 1050 
REM SUB COMPATTA 
Bi=*":FOR 1=1 TO LEN(AÌ) 

IF ASC (MI Di (Ai, 1 , 1 ) ) >47 AND AS 
C (MI Di (Ai, 1,1)) <91 THEN BÌ=BÌ+ 
MI Di (Ai, 1,1) 

hEXT!AÌ=Bi:Fl=0: IF LEM(AÌ) <2 T 

HEN Fl=i 

RETURN 

REM SUB CONSONANTI 
A 11= " " :A2t=* ’ :FOR 1 = 1 TO LEN(A 
i> sA3Ì=MIDÌCAÌ, 1,1) 

IF A3Ì="A ’ OR A3i= "E " OR A3i=" 
I* OR A3i= "Q" OR A3i= "U" THEN 
A£Ì=A2Ì+A3Ì!G0T0 4550 
A1Ì=A1Ì+A3Ì 
NEXT 


4600 RETURN 

5000 REM TABELLA CODICI (CAP-CODIC 
E CATAST. ) 

5010 DATA 20100, F205, 00100, H50I ,801 
00 ,F833 , 10100 ,L219 , 18100 ,D969 , 
70 1 00 , A662 

5020 DATA 30100, L736, 40100, A944, 271 
00 ,G388 ,24 100, A794 ,25 1 00 ,B 1 57 , 
37 1 00 ,L7S 1 

5030 DATA 92 100, A089, 15100 ,A182, 601 
00 ,ft£7 1 , 1 1 100 , A326 ,63100 ,A462 , 
67 100 ,A345 

5040 DATA 52I00,A390, 14 100 ,A479 ,831 
00 ,A50S ,32100 , A757 ,82100, A783 , 
72100, B130 

5050 DATA 39100, A952, 09100, B354, 861 
00, B5 19, 81 100 ,B9G3 ,66 100 ,CB32 , 
93 100 ,B4£9 

5060 DATA 12100, 0205, 22100, C933, 261 
00,0150,87 1 00 ,0086,95 1 00 ,C35 1 , 
88 1 00 , C352 

5070 DATA 94 100 ,C34£,44108,D548,71 1 
00 ,0643,50100 ,0612,47100 ,D704 , 
03100,0810 

5080 DATA 34 100 ,E098 ,58 100 ,E202, 181 
00 ,E290 ,86100 ,E335 ,73100 ,E506 , 
57 100,E6£5 

5090 DATA 04100, E472, 62180, E783, 981 
00 ,F158 ,46 100 ,E897 ,4 1 I00,F257, 
54 100 ,F023 

5100 DATA 75 100, F052, 28180, F952, 081 
00, F979 ,091 00 ,G1 13,90100,6273, 
29100,6535 

5110 DATA 35 100, G224, 65100, 6482, 061 
00 , 6478 ,56100, G702 ,33100 ,6888 , 
43100, G337 

5120 DATA 61 100 ,6479,51100, G713, 851 
00 ,6942,48100 , H199, 89100 ,H224, 
42 100 ,H223 

5130 DATA 97100, H1S3, 02100, H282, 451 
00 ,H620 ,84 1 00 ,H703 ,53 100,1 726 , 
23108,1829 

5140 DATA 19100, E463, 96100, 1754, 071 
00, 1452,17100, 1480, 74 100, L049, 
64100, L103 

5150 DATA 38100 ,L378, 91100 ,L331 ,051 
00 ,L 1 1 7 ,34 100 ,L424 ,31 100,L39£, 
33100 ,L483 

5160 DATA 21 100, LS82, 13100, L750, 361 
00,L340,01 100,M032 

6000 DATA *,* 
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Se vuoi 
abbonarti 


Se vuoi 
Elaborare 


Se vuoi 
jn consiglio 
y consigliarci 


f mio 
computer 
? configurato: 


le vuoi 
'endere 
ì comprare 


■ Registrale il mio abbonamento annuale a Commodore 

■ C Ho versalo oggi stesso il canone di Lire 28.000 a mezzo c/c postale n 2 37952207 intestato a: 
m Systems Editoriale Srl - V.fe Famagosta, 75 - 20142 Milano 

m □ Accludo assegno per lire 28,000 banca n u a favore di 


u II mio computer è: V1C 20 □, C 64 O, altro (specificare) 
m Ho □ / non ho □ la stampante, ma voglio □ comprarla, 
u Preferisco programmi di gioco D É didattici □, d'utilità □, altro 


■ Nome _ Cognome 

■ Via - no CAP. Illlll Città 


■ Tel. 



■ Registratemi fra t collaboratori regolari di Commodore, 

( A titolo di prova vi invio un articolo© la cassetta col programma “ 
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ti fa toccare con mano 
tutte le novità 



OGNI MESE IN EDICOLA 




<&$<*>** ^ 
1 *f&*** («a» 

^ «-«iSSSl 
syvtgsS»" ! 

\+J^ «T- .-*6».° 


Memorie 

per Elaboratori Elettronici s .p,^ 


ferniUit p#^ CcaEh EUB^uwki (Mi» 

S«3«AmniTj ^lUMiUm Vi^EIhv J9 
fd à hnre « a i ■ Tfy-! Jf«S MÌE I 

Filuli * Agpft** Mmn« |||ig«nv Tftmo 

J’WOvJ PJMnm Bologna *,ttw *"(«u 
flirti* F#»pcM- £*« 1*114 plituno Qj’< C« 4 Kn 4 
BoI:jaj Unln 


